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IDENTIFICATION 


PRODUCT CODE: MAINDEC-11-DVDRA-A 

PRODUCT NAME: ORV11B8 OMA INTERFACE DIAGNOSTIC 
DATE: OCTOBER 1976 

MAINTAINER: DIAGNOSTIC ENGINEERING 


COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY OTHER COPIES THEREOF MAY NOT 
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FEE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
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THE DRV11B DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DEST ae 
TO TERT ALL K EARLE INGERTE AND DATA PATHS ae BLE W 
THE LOOP KC INSERTED NECTORS 


IN THE USER 1/0 CON 
TOTAL, PROGRAM CONTROL I LISHED THRU THE CO NSOLE TERMINAL 


s) 
aA, THE OBT CONSOLE PRTCROCODE A a B HE PROVISIONS OF SECTION S 

THIS DOCUMENT. IF THE SYSTEM ALSO INCLUDES AN “REVII" (DMA REFRESH), 
THE DMA REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 


REQUIREMENTS 


EQUIPMENT 


1. PDP11/03_COMPUTER OR LSI-11 PROCESSOR 
2. DLVI1 WITH I/Q TYPE TERMINAL 
3. DRV11B WITH LOOP BACK CABLE 


STORAGE 
THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE 


ASSURE THAT THE LSI-11 IS IN THE ODT MICROCODE STATE. 
Thee. THE LOW OR HIGH SPEED READER WITH THE ABSOLUTE LOADER 


l 
2: 

2. TYPE THE READER’ S CSR ADDRESS (177SS0-LOW OR 177SSO-HIGH) 
4 aNd coe TAPE TH 1b LOADED, LOAD THE DRV11B BINARY TAPE INTO THE 
. READER AND TYPE THE & TER ’P’. 


YPE 
IF THE ABSOLUTE LOADER HAS ALREADY BEEN LOADED (STEPS é 8 3), 
THEN ONLY THE STARTING ADDRESS OF THE ABSOLUTE LOADER 
THE CHARACTER 'G’ NEED BE wae (WITH THE DRVIIB BINARY TAPE 
IN THE APPROPRIATE READER) 


STARTING PROCEDURE 


. MAKE SURE THE MAINTENANCE LOOP BACK CABLE IS INSERTED IN 
THE 170 CONNECTORS ON THE M7950 MODULE. 

2. MAKE SURE THE DEVICE BUS & VECTOR ADDRESSES AGREE WITH THE 

DEFAULT HANGE 


USER TO GE ITS 
REGISTER DATA TERMINATED 
S.0 FOR SWITCH REGISTER 


' 
‘] 


“oor To. le) 


+> 


» 6 


WRAL the abet et rr AL 


et et ee ee 


roo 


pn) 


PANT ARIAUIAYLAY Lime eek See ed od ek ed ee ee ee ed ee ee ee ee ee 


PON BER ORR Pe SR SER PORES Ie tata 2 


wm 
fu 


6.0 


6.1 


6.2 


IGNOSTIC MACY!) 27(665) i1-OCT-76 15:39 PAGE 4 


OPTIONS 

SWITCH OCTAL FUNCTION 

SW15=1 100000 HALT ON ERROR 

Swl4=1 040000 LOOP ON TEST 

SW13=1 020000 TNH IBIT ae TYPEOUTS 

SW11=1 004000 INHIBIT ITERATIONS 

SW10=1 002090 BELL ON Haste 

SWO9=1 001000 COOP ON ERRO! 

SWO8=1 O0D4Xx LOOP ON TEST IN SWR <7-0> 

CONTROL 

1. THE SOFTWARE SWITCH REGISTER *SWREG’ (LOC. 176) CAN BE 
HANGED BY USING THE ACILITIES. 


2. THE SOFTWARE Cd REGISTER CAN BE CHANGED THis PROGRAM 


NG T YS. 
KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
CARRIAGE RETURN. 

3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 
E CONDITION WITH BITIS SET (HALT ON ERROR), STEP #2 
NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
SO ITCH REGISTER IF DESIRED BEFORE TYP 
*B* (CONTINUE). 


4. IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
ey ne Be iw MAY BE NECESSARY TO BE PZKNOWLEDGE 


ERROR REPORTING 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
C NT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


ERROR DATA 

#ERRPC LISTING ADORESS WHERE THE ERROR ao DETECTED 
*TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11B BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCVD DATA THAT WAS RECEIVED 

RORS MEMORY ADDRESS OF DATA TRANSFER ON ERROR 


#ALWAYS REPORTED 
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28 7.1 DRV11B BUS & VECTOR ADDRESS MODIFICATION 

219 MODIEY LOCATION *SBASE" IF BASE BUS ADDRESS IS NOT 172410. 

ii MODIFY LOCATION 'SVECT1’ IF VECTOR ADDRESS IS NOT 124. 

2:3 NOT THE LSI-11 ODT FACILITIES TO MODIFY THESE LOCATIONS 

215 ar YER progr OAR. {NO VECTOR ABSIERMENT ABOVE 774 SHOLLE BE 

216 

zi 7.2 XXDP/APT NOTES 

215 THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REF. 7.5)(REQUIRES 8K OR MORE). 
zz THIS DIAGNOSTIC DOES SUPPORT "fiPT" AND HAS RUN UNDER IT. 

see 7.2 POWER FAIL 

ee4 A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 

225 WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 

ef NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 

22 7.4 MULTIPLE ORVI1B INTERFACE TESTING 

220 THIS PROGRAM DOES NOT “AUTO-SIZE” THE NUMBER OF DRV11B’S CONNECTED. 

231 THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 DRVI1B INTERFACES 

232 WITH CONTIGUOUS BUS AND VECTOR ADDRESSES. THIS 1 ACCOMPLISHED 

233 BY THE OPERATOR SETTING UP LOCATION "SDEVM’ WITH A BIT MAP INDICATING WHAT 
o3 INTERFACES ARE TO TESTED. I.E. BITO=1 SAYS TEST 1ST DRVIIB 

si BITI=1 SAYS TEST 2ND DRVi1B, BiTe=1 SAYS TEST 3RD ORV11B, Etc.. 

37 7.5 RESTRICTIONS 

233 IF_THE SYSTEM ALSO INCLUDES AN "REVII" (DMA REFRESH), THE DMA 

en REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 

242 8.0 EXECUTION TIME 

TEES ee ie EVO apenas 

e4e EXECUTION TINE RANGES FROM ABOUT S SECONDS WITH NO ITERATIONS 

E4E 0 ABOUT 90 SECONDS WITH ITERATIONS ENABLED WITH ONE ORV118 CONNECTED. 


247 aN END PASS RESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
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DVDRAR.F LL 
48 9.0 PROGRAM TEST DESCRIPTIONS 
250 
51 9.1 GENERAL 
= THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
=o4 TO TEST LOGIC FUNCTIONS AND OATA PATHS OF THE DRVII8 OMA INTERFACE. 
255 a DEGREE OF TESTING IS ACCOMPLISHED WITH THE AID OF THE 
Sct MAINTENANCE LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TES 
257 Ist OF esis TS AVAILABLE IN THE TABLE OF CONTENTS 
258 BT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 
ese EACH TEST CAN BE BENEFICTAL IN TEST UNDERSTANDING. 
J 
26] $.2 REGISTER TESTS 
263 _ THE FOLLOWING REGISTERS ARE READ/WRITE & RESET TESTED: 
265 1. WORD COUNT 
pas 2. BUFFER ADDRESS 
267 3. COMMAND/STATUS 
zee 4° DATA BUFFER 
es 
270 9.3. BYTE ADDRESSING TESTS 
272 1. COMMAND/STATUS 
73 2. DATA BUFFER 
275 4 "FNCT’ TO ’STAT’ WRAP AROUND TEST 
E77 .5 READY INTERRUPT TEST 
579 6 NPR DATA TRANSFER TESTS 
28; THE FOLLOWING NPR XEERS ARE CHECKED FOR CORRECT STATUS, 
zee WORD COUNT, SUFFER ADDRESS & DAT 
By 1. SINGLE 'DATI' XFER - FLOATING 1/0 PTRN 

395 2. SINGLE ’DATO’ XFER - FLOATING 1/0 PTRN 
25 3: Ot "DATI’ XFERS - FLOATING 1/0 P 
287 4° OU *DATO’ XFERS - FLOATING 1/0 PTRN 
e6e S. SINGLE ’DATI’ XFER TO THE TTY PRINTER CSR 
4 
20 9.7. MAINT MODE NPR DATA TRANSFER TESTS 

292 1. THAT MAINT MODE CONTROLS ’FNCT’ BITS 

393 2. 200 MAINT MODE XFERS - CHECKING STATUS 8 DATA 

es 3. 200 MAINT MODE XFERS TO EACH 4K AVAILABLE MEM 

ec 

2% 9.8 BURST & NON-BURST MODE TESTS 

238 1. THAT CPU IS LOCKED OUT IN BURST MODE 

£59 2: THAT CPU IS NOT LOCKED OUT IN NON-BURST MODE 


303 3.9 ’NEX’ ERROR CONDITION TEST 
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ge PRODUCT CODE: MAINDEC-11-DVDRA-A 

325 PRODUCT NAME: DRV11B DMA INTERFACE DIAGNOSTIC 
DATE: OCTOBER 1976 

323 MAINTAINER: DIAGNOSTIC ENGINEERING 


239 COPYRIGHT (C) 1976 
340 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


s4e THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
a tom La AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE 


OPIES MAY NOT 
HER PERSON EXCEPT FOR 
246 USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 

347 TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


349 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
350 SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


1 
2 DEC_Q@SSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE 
3 ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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404 1.0 ABSTRACT " 
SS Oni ee ee 
40 
4o> THE DRVLIB DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED 


TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE WITH 

THE LOOP BACK CABLE INSERTED IN THE USER I/0 CONNECTORS. 

TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE he 
VIA_THE GS ae MICROCODE AND THE PROVISIONS OF SECTION 

OF THIS DOCUMENT. IF THE SYSTEM ALSO INCLUDES AN “REVi1" (OMA REFRESH), 

THE OMA REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 


REQUIREMENTS = 


EQUIPMENT 


1. Avil’ ut COMPUTER _OR bel 11 PROCESSOR 
é€. DLV11 WITH 170 TYPE TERMINAL 
3. DRVIIB WITH LOOP BACK CABLE 


STORAGE 
THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE 


ASSURE THAT THE LSI-11 IS IN THE ODT MICROCODE STATE. 
LOAD THE LOW OR HIGH SPEED READER WITH THE ABSOLUTE LOADER 


1 

. TAPE. 

3. TYPE THE READER’S CSR ADDRESS (177560-LOW OR 177SS50-HIGH) 
. AND CHARACTER ’L’. 

5 


ND 
AFTER TAPE IS LOADED, LOAD THE DRV11B BINARY TAPE INTO THE 
READER AND TYPE THE CHARACTER ’P’. 

IF THE ABSOLUTE LOADER HAS ALREADY BEEN LOADED (STEPS 2 8 3), 
THEN ONLY THE STARTING ADDRESS OF THE ABSOLUTE LOADER AND 
THE CHARACTER ’G’ NEED BE TYPED (WITH THE DRV11B BINARY TAPE 
IN THE APPROPRIATE READER) 


STARTING PROCEDURE 


1. MAKE SURE THE at ld gar 3 LOOP BACK CABLE IS INSERTED IN 
THE 170 Me gh THE M7930 


2. MAKE SURE T Uae & VECTOR RODRESSES AGREE WITH THE 
DEFAULT VALUES N SECTION 7.1 7 iF NO CHANGE 
LOCATION(S) AS DESIRE! ODT ye OMMAND . 


3. IN TCH. is TSABLED 1 ANY). 

2 Haha eat tlt Bin Leste 

5. ROGRAM W WT REO RES ". TYPING THE i A WITCH 
REGIST R CONTENTS AND ALLOWING USER TO CHANGE ITS 
CONTENTS BY ENTERING oc AL SWITCH REGISTER DATA TERMINATED 
BY Poa GAREAGS RETURN - SEE SECTION 5.0 FOR SWITCH REGISTER 
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§.0 SUFTWARE SWITCH REGISTER 


S.l OPTIONS 





SWITCH OCTAL FUNCTION 

SW1S=1 100000 HALT ON ERROR 

SW14=1 040000 LOOP ON TEST 

SW13=1 020000 INHIBIT ERROR TYPEOUTS 

SW11=1 004000 INHIBIT ITERATIONS 

SW10=1 002000 BELL ON ERROR 

SWOS=1 001000 LOOP ON ERRO 

SWO8=1 O004XX LOOP ON TEST IN SWR <7-0> 
$.2 CONTROL 


1. THE SOFTWARE SWITCH REGISTER ’SWREG’ (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 
2. THE SOFTWARE SWITCH et Sa CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE TROL & G’ KEYS. THIS 
KEYBOARD OPERATION WILL PRINT OUT_THE CURRENT CONTENTS 
ae RoE RENE Re TUR ITCH REGISTER DATA TERMINATED 


3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF 
ERROR CONDITION | WITH BITIS SET (HALT ON ERROR)” ‘etep Be 
ABO OF UE, SO RESORT TO STEP #1 TO ALTER THE 
rp coh TNE VREGISTER IF DESIRED BEFORE TYPING 

4. IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 
aGONTROL & G & G’ COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE 


6.0 ERROR REPORTING 


6.1 ERROR COMMENT 


ALL poe | wn eg eg Oe Nt AN ENGLISH LANGUAGE OO MIDI IVE 
COMMENT AS TO THE T Li 3 OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR cAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 

ERROR PC OR FROM THE TEST ITSELF. 


6.2 ERROR DATA 


#ERRPC LISTING ADDRESS ait THE ERROR WAS DETECTED 
*TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 
BUSADR DRV11B BUS REG ones OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

CVD DATA THAT WAS 


R ECEIVED 
ADRS MEMORY ADDRESS OF DATA TRANSFER ON ERROR 
#ALWAYS REPORTED 
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7.0 


7.1 


7.8 


NI 
ww 


7.5 


8.0 


MiSCELLANEOUS 


ORVi18 BUS & VECTOR ADDRESS MODIFICATION 


MODIFY LOCATION Dist IF BASE BUS ADDRESS IS NOT 172410. 
MODIFY LOCATION ’SVECT1’ IF VECTOR ADDRESS IS NOT 1e4. 


¥NOTE: USE THE LSI-11 ODT FACILITIES TO MODIFY THESE LOCATIONS 
By sata LOAD. NO VECTOR ASSIGNMENT ABOVE 774 SHOULD BE 


XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REF. 7.5)(REQUIRES 8K OR MORE). 
THIS DIAGNOSTIC DOES SUPPORT “APT” AND HAS RUN UNDER IT. 


POWER FAIL 


A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE) . 


MULTIPLE DRV11B INTERFACE TESTING 


THIS PROGRAM DOES NOT “AUTO-SIZE” Et. NUMBER OF at Fs S_ CONNECTED. 

THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 DRV11B INTERFACES 

WITH CONTIGUOUS BUS AND VECTOR ADDRESSES. TH ie IS ACCOMPLISHED 

BY THE OPERATOR SETTING UP ,OGAT 10H *SDEVM’ WITH A BIT MAP_INDICATING WHAT 
INTERFACES ARE TO TESTED. I.£. BITO=1 SAYS TEST ist DRV118 

BIT1=1 SAYS TEST 2ND DRV11B, BITe=1 save TEST 3RD DRV11B, Efc.. 


RESTRICTIONS 


IF THE SYSTEM ALSO INCLUDES AN “REV11" (DMA REFRESH), THE DMA 
REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED. 


EXECUTION TIME 


ae be a TIME RANGES FROM ABOUT S SECONDS WITH NO ITERATIONS 
0 ABOUT 90 SECONDS WITH ITERATIONS ENABLED WITH ONE DRV11B CONNECTED. 
aN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL SELECTED UNITS. 
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9.0 


9.1 


3.2 


9.3 


3.4 
9.5 
9.6 


8.7 


9.8 


9.9 


PROGRAM TEST DESCRIPTIONS 


GENERAL 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO ion otcaee oes toe S AND DATA PATHS OF THE DRV118 DMA hae 
! OF 


EGINNIN HE LISTI TH MMEN 
EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 
REGISTER TESTS 
THE FOLLOWING REGISTERS ARE READ/WRITE & RESET TESTED: 
1. WORD COUNT 
é. BUFFER ADDRESS 
3. COMMAND/STATUS 
4. DATA BUFFER 
BYTE ADDRESSING TESTS 


1. COMMAND/STATUS 
2. DATA BUFFER 


’FNCT’ TO *STAT’ WRAP AROUND TEST 
READY INTERRUPT TEST 
NPR DATA TRANSFER TESTS 


THE FOLLOWING NPR XFERS ARE Geno FOR CORRECT STATUS, 
WORD COUNT, BUFFER ADDRESS & DAT 


1. aNae "DATI’ XFER - FLOATING 1/70 PTRN 
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3 

' 
ao 
cc 
i=] 
D 
— 
land 
=z 
@ 
SN 
oOo 
A 
er te 4 


0 G 1/0 PTRN 
SINGLE ’DATI’ XFER TO THE TTY PRINTER CSR 
MAINT MODE NPR DATA TRANSFER TESTS 
1. THAT MAINT MODE CONTROLS ’FNCT’ BITS 
2. 200 MAINT MODE XFERS - CHECKING STATUS & DATA 
3. 2CO MAINT MODE XFERS TO EACH 4K AVAILABLE MEM 
BURST & NON-BURST MODE TESTS 


1. THAT CPU IS LOCKED OUT IN BURST MCDE 
@. THAT CPU IS NOT LOCKED OUT IN NON-BURST MODE 


"NEX’ ERROR CONDITION TEST 
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10.0 LISTING 


- TITLE rey -11-DVDRA-A DRV118 DMA INTERFACE DIAGNOSTIC 
;*COPYRIGHT (C) 1976 

;*DIGITAL EQUIPMENT CORP. 

; SNAYNARD, MASS. 01754 


PROGR BY R. MOORE 


:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
Che (MAINDEC-11-DZ2QAC-CO),MAR 21, 1976. 





$tn 
SquR=160000 ;:HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
$SWR=167400 


$TN=1 
.SBTTL OPERATIONAL SWITCH SETTINGS 


LOOP ON TEST IN SWR<7:0> 
‘SeTTL Basic DEFINITIONS 


pe Re Ttm, a OF THE STACK POINTER *##* 1100 #%* 


1d 

* SWITCH USE 

;* 1S HALT ON ERROR 

;% 14 LOOP ON TEST 

-# 13 INHIBIT ERROR TYPEOUTS 
of ll INHIBIT ITERATIONS 

3% 10 BELL ON ERROR 

. 2 LOOP ON ERROR 


STACK= 11 

“EQUIV EMT, ERROR Heth: DEFINITION OF ERROR CALL 
"EQUIV IOT; SCOPE BASIC DEFINITION OF SCOPE CALL 
jxNISCELLANEOUS erate 


iS EODE FOR FOR HORIZONTAL TAB 
LINE FEED 


LF le 

CR= 15 : + CODE FOR LARRIAGE — RETURN 

CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 : PROCESSOR STATUS WORD 

-EQUIV PS,PSW 

STKLMT=. 177774 ;;STACK LIMIT REGISTER 

PIRG= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 : T HAROW WARE SWITCH STER 

DDISP= 177570 : HARDWARE DISPLAY RRECISTER 

; #GENERAL PURPOSE REGISTER DEFINITIONS 

RO= “0 ;;GENERAL REGISTER 

Ri= %} : GENERAL REGISTER 

R2= “2 ::GENERAL REGISTER 

R3= “3 ::GENERAL REGISTER 


ae Ltt CCC CC LL LE LL 


oe 


he 
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DVDRAA.P BASIC DEFINITIONS 

&62 900904 Ry= “4 : GENERAL REGISTER 

663 909005 RS= 4S : GENERAL REGISTER 

654 000096 Rb: i js GENERAL REGISTER 

665 000897 GENERAL REGISTER 

a4 ReSUIV Rb, sp tt eTack POINTER 

B67 “EQUIV R?/PC ::PROGRAM COUNTER 

-#PRIORITY LEVEL DEFINITIONS 

70 ooooco benz og -:PRIORITY LEVEL O 

? 960040 PRiz 40 PRIORITY LEVEL | 

72 990100 = 100 ::PRIORITY LEVEL 2 
900140 PR3= «140 ::PRIORITY LEVEL 

£74 p90200 PRU= ;;PRIORITY LEVEL 4 

675 900249 PRS= 40 “PRIORITY LEVEL 5 

676 p00300 PRb= 300 {PRIORITY LEVEL 6 

be? 900340 PR7=s-4340 ‘PRIORITY LEVEL 7 

£73 -#"SWITCH REGISTER” SWITCH DEFINITIONS 

£20 109000 SwiS= 100000 

65! 049000 Swi4= 40000 

£82 920000 SW13= 20000 

683 010000 Swl2= 10000 

3o4 904090 Suli= 

£85 002000 SW10= 2000 

£85 001000 SwO8= 1000 

687 090450 cwoB= 400 

688 005200 SwO7= 200 

£89 000100 SuOS= 100 

£90 o00040 SwoSs= 40 

691 900020 cuo4= 20 

692 000010 SwO3= 10 

£93 oc0004 Sw2= 4 

694 po000e2 Suliz 2 

BSS 000001 Swoo= 1 

eSs “EQUIV SWO9,SW9 

697 “EQUIV SwOs; Swe 

£98 “EQUIV 5WO7,5W7 

£93 “EQUIV SWO06, SWb 

700 “EQUIV SWOS, SWS 

701 “EQUIV SwO4' Sw4 

702 “EQUIV SWO3;SW3 

us . $ 

70s “EeUTY ana’ Sua 

707 -#DATA BIT DEFINITIONS (BITOO 70 BITIS) 

708 100900 BIT1S= 100000 

7093 040000 BIT14= 40000 

710 S20000 BIT13= 20000 

711 oic0ce BITl2= 10000 

712 oY BITii= 4000 

713 002 BIT10= 2000 

714 001000 81709= 1000 

715 000400 BIT08= 400 


a ne | ne ee eee 


999 ~9N9~3~397 3) 
trate sar 
£WIM=-OWWM-I310 


oto} 


000174 
000176 


oSS208 
093100 


BASIC DEFINITIONS 


090200 
900109 
900040 
so0020 
Q 10 
00002 
000001 


000004 
000010 
000014 
000014 
000024 


000000 

090000 

000137 O0iS44 
000100 

000104 cC00200 o000Ce 
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ISU) 


O60 00 00 08 80 08 Oe oe 
_ 
oO 


BOBS eRSS 


0404 4 9 4 a 


* OWDDOWWO ow 
<<<<c<<c<c<c< 


. . 2 . . io e . 
CPUETUETUETUCTUITUITUETUITIIT 1 os o—s o—s0—40—0 — 00-4 
Oooo -1H4+4—-41-4- 4-4-4 


ce cccc 
WWDODWOOWWOOO~—lu c 
ee eee ee ero) 
SoccgoG0000 

& BSERS2ZREVES 


Ts 
pw 
D 
7) 
| md 
re) 

8 
*3 
a) 


RRVEC= 4 
RESVEC= 10 
ver Tyee a 


TPVE 64 
PIRQVEC=240 
ABASE= 172 


41 
AVECTI= 000124 
ADE 


VM= 1 
MTPS=106427 


OnDwOwowowrrmnw 


=~ w 


RA 


maAcYI} 


a) 


-SBTTL TRAP CATCHER 


COe 


7 (665) 


VECTOR TNE OUT 


il-CCT-76 





15:39 PAGE iS 


TIME OUT AND OTHER ERR 


; TRACE 
BREAKPOINT 


ORS 
AND ILLEGAL INSTRUCTIONS 


(BPT) 


i Tneur outut RPRAP (IOT) ##SCOPEss 


FAIL 
: EMULATOR TRAP (EMT) *##ERROR## 
RAP" TRAP 


VECTOR 
T REQUEST VECTOR 
EQUATE 


:DEFAULT TO ONE DRV118 
ZINSTR EQUATE THAT MOVES BYTE TO PSW 


20 
7 ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.+2,HALT™ 
;*SEGUENCE TO CATCH ILLE 
: #LOCATION Se CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


;SOFTWARE DISPLAY REGISTER 
: } SOF TWARE SWITCH REGISTER 


ES) 
SSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


DISPREG: | 
WREG 


=100 
- WORD 


LORD 0 
SWREG: WORD 0 
-SBTTL STARTING ADDRESS 


104,200,2 


-+ eee ee ee 


GAL TRAPS AND INTERRUPTS 


;IF 'B EVENT’ ON Q BUS IS CONNECTED 
;IGNORE IT’S INTERRUPT - 


JUST DO A RTI 


eld, Meee Peer Se ecrind 














DOe 


118 DMA INTERFACE DIAGNOSTIC MACY]] 27(665) il-CCT-76 15:39 PAGE i6 
OK 


1 
1 acTiI 4 


78 + ERERREARELER ESF ES EASES EERE ESEP ESS S EELS SS SS ASSESS SESFSFS SE SFASSSES 





re c ~SBETTL ALTII HOOKS 
7893 :GOOKS REQUIRED BY ACTII1 
770 900: §SVPC=. s;SAVE PC 
| 771 009046 246 
ae OGOO4E 207546 oe >sL)SET LOC.46 TO ADDRESS OF SENOAD IN .SECE 
vé 000052 .= 
| 774 0000Se 900000 -WORD 0 330038] oe, - TO ZERO 
ie 000106 . =$SVPC ;; RESTORE P 
775 001900 .=1000 
oe .SBTTL APT PARAMETER BLOCK 
771 
| 778 Ea t-te Fs eel 
| 780 SET LOCATIONS 24 ANC 44 AS REQUIRED FOR AP 
| 783 aaah 7-551 hehehehe 
| 782 001000 . $X=. ;SAVE CURRENT LOCATION 
i 783 GOooe4 . iiSer cee Pat TO POINT TO START OF PROGRAM 
i 784% o0002e4 900200 T START 
78s 000044 HPOINT TO APT a a ADDRESS PNTR. 
7B6 O00C044 901000 SAPTHOR : POINT TO APT R BLOCK 
i 787 901000 Ly *RESET LOCATION COUNTER 
| 788 . PERSSOERSEESGESLESEEOUSSEEEEGEOSDOOEDESECUSEESEESEGEEEEE0000008 
783 Seer TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POPL1 DIAGNOSTIC 
ce ; INTERFACE SPEC. 
732 001000 SAPTHD: 
733 001000 SHIBTS: .WORD QO ;; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
7% 901002 001174 SMBADR: .WORD S$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
7 00100% 000031 STSTM: .WORD 25. ;;RUN TIM OF L ST TEST 
7% OO1006 SPASTM: .WORD 6. 37 RUN TIME IN SECS. OF IST 
7 9C:1010 oC0144 SUNITM: .WORD 100. * ADDITIONAL TIME cs 
738 OCOl10le o000Se . WORD SETENO-SHAIL 2 ;;LENGTH MAILBOX-ETABLE (WORDS) 


eesti aie EEE ELT LO LLL ALLL 
c 


EOe 
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DVDRAA. PL] COMMON TAGS 
739 \SBTTL CUMMON TAGS 
851 2¥ RESRESERESELELESSEE EEE SL ELAA SE SLAFSEFASSESEESLEAALE EFF SIRS AIFEF 
go2 TSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
B53 ?eUSED IN THE PROGRAM. 
| 80s 901.100 .=1100 : 
| 896 991100 SCMTAG: +;START OF COMMON TAGS 
? 991109 oco000 “WORD 0 
808 001192 00 STSTNM: BYTE O s;CONTAINS THE TEST NUMBER 
803 001103 990 SERFLG: .BYTE CONTAINS ERROR FLAG 
810 001104 909090 NT: .WO 0 :: CONTAINS SUBTEST ITERATION COUNT 
811 901195 990000 SLPADR: .WORD ::CONTAINS SCOPE LOOP ADDRESS —_ 
812 001110 o90C00 SLPERR: .WORD 0 ‘I CONTAINS SCOPE RETURN FOR ERRORS 
| 813 OO1ll2 o00000 SERTTL: .WORD 0 S: CONTAINS TOTAL ERRORS DETECTED 
| B14 oo1114 900 SITEMB: .BYTE 9 !ICONTAINS ITEM CONTROL 
' giS goilis 001 RMAX: /BYTE 1 : CONTAINS MAX. S PER TEST 
| 816 901116 000000 SERRPC: .WORD 9 ‘I GONTAINS PC OF LAST ERROR INSTRUCTION 
' 817 901120 000000 $GDADR: .WORD 0 ::CONTAINS ADDRESS OF GOOD" DATA 
| 818 O0lle2 900000 WORD 0 ::CONTAINS ADDRE 3 OF ‘BAD’ DATA 
| 819 O0l1e4 900000 SGDDAT 0 :: CONTAINS 'GOOD DATA 
| 830 301126 00000 $BODA 9 !ICONTAINS 'BAD’ DATA 
| 831 061130 ooo000 "WORD 0 : !RESERVED--NOT TO BE USED 
' 82 901132 900000 "WORD 0 
823 001134 0090 SAUTOB: BYTE 9 ; ;AUTOMATIC MODE INDICATOR 
84 00113S 900 SINTAG: .BYTE O ‘INTERRUPT MODE INDICATOR 
| B25 001136 900000 "WORD 0 
| BH «001140 177570 SUR: WORD DSWR ;:ADORESS OF SHITCH REGISTER 
827 901142 177570 DISPLAY: .WORD ODISF : ADDRESS ISPLAY REGISTER 
828 O01144 177560 STKS: 177560 :: TTY KBO STATUS 
829 001i46 177562 $TKB: 177562 :: TTY KBD BUFFER 
830 001150 177564 $TPS: 177564 ‘TTY PRINTER STATUS REG. ADDRESS 
831 01152 1 STPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
B32 001154 SNULL: .BYTE 0 : :CONTAINS CHARACTER FOR FILLS 
833 001155 ‘ SFILLS: :8YTE 2 SICONTAINS # OF FILLER CHARACTERS REQUIRED 
834 001156 O12 SF2LLC BYTE 12 :3 INSERT FI ~ AFTER A “LINE FEED" 
83S 5911 00 TPFLG 0 2 ® TERMINAL AVAILABLE FLAG (BIT<O7>=0=YES) 
B3 1160 0000 STIMES: : ::MAX. NUMBER OF ITERATIONS 
838 Bot tes ait 000377 seerree “ASCIZ 207><377><377> ETP Eon LL . 
835 001170 077 SQUES: {ASCII 77/7 ::QUESTION MARK 
840 001171 O15 SCRLF: ‘ASCII <15> :: CARRIAGE RETURN 
a 901172 oo00i2 SiF: [AsCIZ «12> 4+ FEED 
a PePeTTTTTTrerrritrritiiriititi iit tii iti e iti e iiss ts Ss 
43 "SBTTL APT MAILBOX-ETABLE 
el? , emanates ape ste Retpimemnamamamteen tent amps mente aire 
847 001174 SNAIL: ; ;APT MAILBOX 
e48 001174 O00000 SMSGTY: - WORD AMSGTY ; MESSAGE TYPE CODE 
£49 001176 000090 SFATAL: . AFATAL ::F RROR NUMBER 
850 001 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
851 OCi202 oocdad SPASS: [WORD APASS ;;:PASS COUNT 
B52 O01204 000000 SDEVCT: .WORD -ADEVCT ;:DEVICE COUNT 





<a een et. cc CCC CG A LLL LL LL 


a 





MAINDE 
DVDRAR. PL) 


853 
ogy 


855 


SRNR A aa Kab AT 


876 


PREGRCS SEER LENS BEC EERE aaa Sy 


RSsasBesRseRseRasRRsERS 


ee ee ae ee 
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. APT MAILBOX-ETABLE 


001241 


SERBS INR EREM CRORES 


WWW 
0 
Tr cMo 


o0c0co 


ee 


2 
-_ 
Oo 


SESE SEC CecESEEcE: 


eee BFR RGe + ee oe oe oe 
ee TE Ee ee ee 


NTEPFACE DIAGNOSTIC 
u 


$ es 
SODW14: . WORD 


SDDWIS: . 
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AUNIT 
AMSGAD 
ANSGLG 
Ae Nv 
REUREG 
AUSWR 
ACPUOP 


AMAMS | 
AMTYP 1 


;;1/0_ UNIT NUMBER 
;; MESSAGE ACCESS 


11704=01, 1170S=02, 11720=03, 11/40=04, 11/45=05 
Tg Be a ales 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
Y MANAGEMENT 


BIT @=MEMOR 
;;HIGH ADDRESS,M.S. BYTE 

3 MEM, T Bukei 

MEM. TYPE BYTE  -- (HIGH BYTE) 


C CORE=001 
C BIPOLAR=002 
C MOS=003 


ss BLK#1 
HL) BOOR. = BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
; MIG ane. BYTE 
a . 
HI 





~ 
: aO0e 
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DVDRAR. PL) RET MRILBOX-ETABLE 
| 907 


908 
ara 001329 SETEND: 
4 


4 


rvs] 
- 
J 


OOOOWOOWWDO 
U) = 0 bs 8-2 pe pe 
QM} OWOONOW COUT 


rorotore 


8888 8 
SRS § 


as Lt 


ve) 
Y 
paper 


= & b= pe 


aOR EERE SERPS 


8888 8888 8888 8888 8888 888 


S899 Beet Baw Bee2 poRS 


0 
uw 
w a 


ERR 


— “A DRV113_DMA_INTERFACE DIAGNOSTIC 
ERROR POINTER TABLE 


.SBTT. 
:*THIS TABLE CONTA 


: *THE EN erteie 
7 #L ieee ws 


: #NOT 


: #NOTE2: 


; ERROR 


: ERROR 


; ERROR 


; ERROR 


; ERROR 


+x —¢ 2. als 
bee 


r= 


oovowodmMm, ovOrnm OVUVOM-— 
—) 


—=F 


;READY INTR FAILURE 
3E TSTNUM BUSADR 
;SERRPC TSTNUM $BDADR SGDDAT S$B8DDAT 


o70MT OVOMU NDOOMs 
a 
— 
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ERROR POINTER TABLE 
; Hn aay alt A POR Ee mi er THAT CAN OCCUR. 

INE NUMBER _F OUND 
2 ee INDICATES RICH” ITER IN THE Ri & IS PERTINENT. 


S 0 THE ONLY PERTINENT DATA IS 


sTTe 
FACE Tem IN THE TABLE CONTAINS 4 POINTERS PYELAINED AS FOLLOWS: 


3 EO ENTS TO THE ERROR MESSAGE 
;;POINTS TO iy DATA HEADER 
;;POINTS TO THE DATA 

;;POINTS TO THE DATA FORMAT 


;REG TIMEOUT ER 
:ERRPC_ TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM S$BDADR S$GODAT S$8DDAT 


;REG READ/WRITE ER 
ERRPC TSTNUM SUSADR EXPCT RCVD 
:SERRPC TSTNUM SBDADR S$GDDAT SBDDAT 


;BUS RES! 

sERRPC TST RUN BUSADR EXPCT RCVD 
;SERRPC TSTNUM SBDADR SGDDAT S$BDDAT 
;FNCT BITS ee TQ SET STAT BITS 
ERRPC  TSTN BUSADR EXP 


CT RCVD 
: SERKPC TSTNUM $BDADR $GDDRT SBDDAT 


EXPCT. RCVD 


;READY CLR _OR SET ER 
;ERRPC_ TSTNUM BUSADR EXPCT 


RCVD 
;SERRPC TSTNUM SBDADR S$GDOAT $8DDAT 

















a a a a eS SD NE 
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DYDRAR. P11 ERROR POINTER TABLE 


961 sERROR 7? 
Pee Be co ey 
apy Baa Biaaes BY :EPERBC TeTNUM Rea if eat Sakbar 
oP 001406 o0C0000 0 
967 ;ERROR 10 
968 001410 013603 EMLC :WORD COUNT ER ON XFER 
969 O0i4ie 014263 DH ;ERRPC TSTNUM BUSADR EXPCT RCVD 
$70 001414 014434 DTi ;SERRPC TSTNUM SBDADR SGDDAT $8DDAT 
ard 001416 000000 0 
973 ;ERROR 11 
974 001420 013€31 EM11 ;BUFFER ADRS ER ON XFER 
7S OO0l4ee O14 DH1 :ERRPC TSTNUM BUSADR EXPCT RCVD 
978 9014e4 914434 OT: ‘SERREC TSTNUM $BDADR $GDDAT SBDDAT 
977 001426 0 
378 
979 ;ERROR 12 
389 001430 013660 EMle ;DATA ER_FROM MEM 
981 001432 014330 DHe ;ERRPC TSTNUM BUSADR ADRS EXPCT  RCVD 
982 001434 014450 OTe ;SERRPC TSTNUM $BDADR SGDADR S$GDDAT SBDDAT 
os 001436 000000 8) 
985 ;ERROR 13 
986 O0144C 013701 EM13 ;DATA ER_TO MEM 
987 O01442 014330 DHe ;ERRPC_ TSTNUM BUSADR ADRS EXPCT RCVD 
988 OO1444 O14450 OTe ;SERRPC TSTNUM SBDADR SGDADR §$GDDAT SBDDAT 
oa 001446 000000 0 
991 ;ERROR 14 
932 001450 013720 EML4 ;SINGLE CYCLE OFF DID NOT LOCK OUT CPU 
993 O0014Se 014405 DH3 ERRPC TSTNUM BUSADR 
994 001454 014466 0T3 :SERRPC TSTNUM SBDADR 
oe 001456 000000 0 
997 ;ERROR 15 
$98 001460 013766 EM1S ; SINGLE sya ON LOCKED OUT CPU 
999 001462 014405 DH3 ;ERRPC TSTNUM BUSADR 
1000 001464 014466 DT3 :SERRPC TSTNUM SBDADR 
1001 O01466 900000 0 
1002 
1003 ;ERROR 16 
1004 001470 014154 EM16 ;NEX LOGIC ER 
1005 O0147e O14263 DH ERRPC TSTNUM BUSADR EXPCT CVD 
1006 001474 014434 OT1 ;SERRPC TSTNUM SBDADR SGODAT $SDDAT 
1007 001476 000000 0 
1008 
10093 ERROR 17 
1010 001500 014171 EM17 ;CYCLE FAILED TO CLK DBR rn 
1011 001502 14263 DH1 sERRPC TSTNUM BDADR GDDAT BDDAT 
10le 001504 014434 OT ;SERRPC TSTNUM SBDADR $GDDAT S$BDDAT 
1013 001506 000000 0 





" nites cence ca Ce 8 ee ee ee a — endl ease dine anata i eam 
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DVDRAA.P1! ERROR POINTER TABLE 

1014 sERROR eu 
ie BENS See pe RRR EN 2a EEE oer ap 
B18 Bet 14 Bt aes : pts : SERRPC I TNUM bbe ADR $GDADR Een saT Seer 
1018 OO01&16 oc0000 6 
1019 
1020 
1021 ;DRVIIB BUS REGISTER ADDRESS POINTERS 
1023 001520 172410 DRVWCR: 172410 WORD COUN 
1024 o01522 172412 DRVBAR: 172412 BUFFER HT ORESS 
1025 001524 172414 ORVCSR: 172414 : COMMAND/STATUS 
Gee 001526 17416 DRVDBR: 172416 ‘DATA BUFFER 
1028 ;DRV11B VECTOR ADDRESS POINTERS 
1030 001530 000124 DRVCTO: 124 sREADY, NEX 3 INCOMPLETE DATIO VECTOR 

1031 001532 oodic6 DRVCTe: leb ‘NEW PSW ON I 

| 1033 COMMON PROGRAM LOCATION(S) 

| 1035 001534 oc0000 TSTNUM: O ;CONTAINS TEST NUMBER ON ERROR 

| 103 001536 990001 DMAP: | ‘DEVICE MAP - EA BIT SAYS TEST THAT DRV1i8 
1937 901540 oc09c0 CORSZ: 9 :CONTAINS 1ST NON-EXISTANT MEM ADRS 
1938 901542 014476 DBUFP: DBUF ?CONTAINS CURRENT 4K NPR BUFFER ADRS 
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DVDRAA.P11 PROGRAM START 


1039 .SBTTL PROGRAM START 
1040 oo1s44 START: i 
1041 “SBITL INITIALIZE THE COMMON TAGS 
1042 a S;CLEGR THE COMMON TAGS ($CMTAG) AREA 
1043 001544 012706 001100 MOV 8SCMTAG, R6 piEIRS LOCATION TO BE CLEQRED 
1044 o015S0 o05026 CLR (R6)+ “CLEAR MEMORY LOCATION 
1045 0015S2 922706 001140 MP wSWR,R& ;;DONE? ’ 
104 001556 001374 ENE woo : LOOP BACK IF NO 
1047 001560 012706 001100 STACK, SP :: SETUP THE STACK POINTER 
1048 ss INITIALIZE A FEW VECTORS 
1049 001564 012737 012064 000020 aSSCOFE SEIOTVEC ; ; 107 VECTOR FOR SCOPE ROUTINE 
1 001572 012737 000340 C0022 NOV asloTve 2; ;LEVE 
1 001600 012737 011522 00030 MOV #32088 SHEnTVEC : EMT “VECTOR FOR ERROR ROUTINE 
1 001606 012737 000340 000032 MOV #340, J8ENTVEC 2; ;LEVE 
1 001614 012727 013386 000034 MOV #STRAP STREEVEC’: EEL VECTOR FOR TRAP CALLS 
1 001622 012737 000036 MOV 8340, JTRAPVE ie; VEL 7 
} 001636 012737 Ol3l22 o00024 MOV 8SFWRON, JYPWRVEC ; POWER FAILURE VECTOR 
1 001636 Ole737 000340 000026 MOV #340, JAPWRVEC+2 * itevet 
1088 DO1ee0 Doi ier ao ee {INITIAL ze SEAPE ‘ON ERROR RODRESS 
1 atest eee 1 001115 MOVB a1, SER ato One ERROR pen ERROR 
i Gotess Gterar Guiess BLING FY RU HE i lee aess FoF SF 
1 ;;SIZE FOR A Pe pecttTEn.” IF Ma art OR ote 
1 :EQUAL TO A "21° WARE SWITCH REGISTER. 
1 001676 013746 O00004 MOV aheRevec Prep) sO CAVE ERROR VECTOR 
1 091702 012737 001736 o00004 MOV uous RO REARVEC 33ST UP ERROR VECTOR 
77570 -SETUP FOR A HARDWARE SWICH REGISTER 


bat hae 


012737 1 001140 SWR 
ppizae 012737 177570 001142 MOV sDOISe DISPLAY #1 AND A HARDWARE DISPLAY REGISTER 


022777 177777 177206 CMP #-1, aSWR Y TO REFERENCE HARDWARE SWR 
001012 BNE 66$ + BRANCH IF NO TIMEOUT TRAP OCCURRED 
3 AND THE HARDWARE SHR IS NOT = -] 

001734 op0403 BR 65S ‘BRANCH IF NO TIMEOUT 

00173 64S: HOV #655, (SP) ::SET UP FOR TRAP RETURN 

001744 012737 000176 O01140 65S: MOV ;;POINT TO SOFTWARE SWR 

001752 012737 000174 O01142 MOV woropRee DISPLAY 

001760 012637 000004 66$: MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 

001764 005037 001202 CLR SPASS : CLEAR PASS COUN 

00:770 132737 O00200 001215 BITB sAPTSIZE, SENVM bi TEST USER SIZE InoeR. apr 

001776 001403 BEQ 67$ *YES,USE NON-APT SitITC 

002000 012737 001216 001140 a MOV #SSWREG, SWR :2NO,USE APT SWITCH RECISTER 

werd 912700 001520 STARTL: MOV #ORVWCR, RO ;SET UP REG ADRS POINTERS 

002012 013701 001250 MOV SBASE. RI GET BASE ADRS 

002016 O1 SETUP2: MOV Ri, ibs ; LOAD EM 


Refit ita tid to RE RERPRERE aaa aaita cotan tata a 
8 
sf 
= § 
Sy e 
8 


002020 po0002 ADD 
ogedes 001530 CMP SOAVOBRE, RO fALL DONE? 

1372 BNE SETUP NOT 
002032 b1¢700 001530 MOV #ORVCTO, RO SET UP DRV118 oMEGTOR ADRS POINTER 
002036 013701 001244 MOV SVECTI.RI GET BASE VECTOR ADRS 
002042 042701 170000 BIC #170000 RI sCLR OUT PRIORITY BITS 
092046 010120 SETUP3: MOV R!, (RO)+ 


+ bh Bs bb bb Be Bb eb be 8 eh 
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DVORAA.P11 INITIALIZE THE COMMON TAGS 





1093 o020S0 062701 oDD00e ALD -POINT TO NEXT 
1084 002054 022700 001534 CMP apAVC ON, RO = ;ALL DONE? 
1695 002060 001372 BNE BR IF NOT 
1096 .SBTTL TYPE pRoeHAM AME 
1097 :;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
1098 002062 005227 177777 INC #-1 : FIRST TINE? 
1099 002066 901052 BNE ous ; BRANCH IF 
1100 002070 104400 002136 TYPE TYPE ASCIZ MO RING 
1101 ; -SBTTL GET value” "FOR SOF TWARE shittcy REGISTER 
1102 74 005737 oo004e TST ARE WE RUNNING UNDER XXDP/ACT? 
1103 002100 O010le BNE ae age {| BRANCH IF 
1104 002102 123727 001214 cO000) CMPB Ss SENV, #1 5 ;ARE WE RUNNING UNDER APT? 
110S 002110 001406 BEQ bES BRANCH IF YES 
1106 OOelle 023727 001140 000176 CMP SWR, #SWREG ; | SOF TWARE SWITCH REG SELECTED? 
1107 002120 BNE 675 : BRANCH 
1108 OO2l22 104405 GTSWR ::GET SOFT-SWR SETTINGS 
1109 002124 Ofo403 BR 67S 
1110 002126 112737 000001 001134 bbs: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
1112 002134 000427 BR 64S T OVER THE ASCIZ 
1113 ee pies: .ASCIZ ote F> aMD-11-DvDAACA DRVI1E DMA INTERFACE DIAG CRLF) 
1115 Wee math 005737 001540 TST CORSZ -TEST IF FIRST PASS 
1116 OO2220 00100e BNE CORSZR BR IF NOT 
1117 104400 014025 TYPE, WARN ‘TELL THE OPERATOR TO TURN OFF DMA REFRESH 
1118 * £# PTETTTSTELT TESTS TTT TTT TT TTT TTT TTT TTT ETE SEETT ET TT ESTEE TET TTT 
1119 SiET? S SEE HOW MUCH MEM WE HAVE 
1120 a oa See ee ee on te 
ll2i 902226 012700 o2D000 éARSZR: MOV #20000, RO ;USE RO TO LOOK 
ll22 OOe232 012737 G0e244 000904 * MOV #2$, J#ERRVEC § ;SET UP TIME OUT RETURN ADRS 
lle3 002240 1$: TST (RO}+ : TAK OK 
1124 OOe242 000776 QR 1$ “UNTIL TIMEOUT 
| 1125 002244 p42700 017777 2S: BIC 17777 RO “POINT TO 1ST NON-EXSISTANT 4K BLK 
1126 O0e2S0 O01 1540 MOV RO,C VE F ER 
i 1127 002254 012737 000006 o00004 MOV WEARVEC+2, DHERRVEC  =RESTORE VECTOR 
| 1128 O02262 012737 014476 901542 MOV #OBUF , OBUFP ; INITIALIZE TO LOWEST 4K 
| 1128 002270 0128737 000000 CSiccb mov #0, SUNIT ;SET UP UNIT COUNT 
| 1130 002876 013737 001252 001536 MOV $De VM, DMAP ‘GET THE # & POSITION OF DRV118’S 
1131 gu 177400 001536 BIC #177400, DMAP :UP TO 3 ONLY 
1132 O0e312 001406 BEQ REST $60 CONTINUE AS IF SOMETHING WAS SELECTED 
1133 002314 900001 001536 BIT #1 OnAP *IS 1ST DRVI1B SELECTED? 
1134 002322 001002 BNE RESTRT “BR IF SO 
1135 002324 000137 007364 JMP NXDEV1 iNQ = GO ADVANCE BASE DRV11B ADDRESSES 
1136 002330 10B4e7 000200 RESTRT: MTPS, 200 :SET PRIORITY TO HIGHEST LEVEL 
| 4137 12706 001100 MOV #STACK, SP “ALWAYS RESET STACK 
1138 002349 013737 001206 001204 MOV SUNIT,$DEVCT | ;LOAD APT COUNTE 
1139 00234% 013700 001206 MOV SUNIT,RO sNAKE AN INDEX 
| 1140 002352 006300 ASL 0 ALU 
| 4141 002354 013760 001520 001260 MOV DRVWCR, SDDWO(RO)’ AVE THE BUS ADDRESS 
| 1142 002362 o00005 RESET -INITIALEZE DRV11B BEFORE TESTING 
| 
| 
i 
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DVDRAA Tl TEST THAT ALL DRV118 REGS ARE ACCESSIBLE 
1143 © SHRRKKLRA ALL RA KLEE HLL SE HL RES KLKKE KAKA RRE KARA KER A EERE EELS 
1144 :ATEST 1 TEST THAT ALL DRVI1B REGS ARE ACCESSIBLE 
1145 = ELK K GEKA LL EHH SKE SK KE KEKE KEELE KHER ERE KLEE LK ELK E ER FARE REE SESE 
1148 002364 o00240 #811; <NOP> 
1147 002266 Ol2e737 OO2402 001106 MOV #10$, SLPADR ;;SET SCOPE LOOP ADDRESS 
1148 002374 012737 000001 001200 MOV #1, STESTN : jSeT Test NUMBER IN APT MAIL BOY 
1149 O02402 112737 000001 001102 10$: # MOVB  4#1.S$TSTNM CET 
1150 O0e410 O1e737 002444 0011105 MOV #1$, SLPERR iSET ip oeehe # OOP ADRS 
1151 002416 005037 001124 CLR scobaT :NO DATA COMPARE 
1152 O02422 005037 001126 CLR SBODAT "NO DATA COMPARE 
1153 O0e%26 012737 OOe4%6e op0004 MOV #2$, HERRVEC SET UP TIMEOUT RETURN ADDRS 
1154 002434 013700 001520 MOV DRVWCR, RO -SET UP 1ST DRV 11 BUS ADRS 
1155 o020440 012701 900004 MOV #4, -SET UP REG COUNT 
1156 0037 18: MOV RO; SBDADR SET UP CURRENT DRV BUS ADRS 
1157 O02e450 005710 TST (RO) :SEE IF THERE 
1158 o0e4Se 005720 TST (RO) :BUMP TO NEXT 
1159 002454 005301 DEC Ri -COUNT 4 OF THEM 
1160 0020456 001403 BEQ 3$. ;BR IF ALL DONE 
1161 002460 000771 BR 1$ TRY NEX 
1162 022626 2S: CMP (SP)+, (SP)+ “FIX STACK SINCE _NO RTI 
1163 OO0C464 104001 ERROR US ADRS INDICATED DID NOT RESPOND 
116 012737 oO0006 OoO0004 3s: MOV #ERRVEC+2, aNERRVEC sRESTORE LOC 4 
1166 5 EXRRAE KALLE RREL ERLE EERE ARLES ELAR EE REE EEE R EERE EEE REEL ERE ERREERE 
1167 tT Te2 T THAT THE WORD COUNT REG IS WRITE/READABLE (FLOAT O COM PTRN) 
1168 ec PeLe SPOS SSCS CeCe CSCS CCS SS Ce CT CCC Set eS CCC CCC SC SC CSCC eee eT eee 
1169 002474 900004 ‘ite SCOPE 
1170 002476 012737 O02S522 001110 MOV #1$, SLPERR ;SET UP SCOPE LOOP ADRS 
1171 013737 001520 001122 MOV DRVUCR, $BDADR SET UP WC REG ADRS 
1172 OOe5i2 o0s000 CLR *RO SAYS SHIFT PTRN WHEN O 
1173 002514 012737 177776 001124 MOV ~e SGDDAT iFLORT O RIGHT TO LEFT 
1174 O02522 013777 001124 176770 1S: MOV SGDDAT , JDRVWCR Wi 
1175 002530 017737 176764 001126 MOV SER MCR SBDDAT i READ IT BACK 
1176 002536 023737 O01124 001126 CMP S$GDDAT , $8DDAT ; CORRECT? 
1177 002544 001401 BEQ $ -BR IF SO 
| 1178 104002 ERROR 2 “WORD COUNT WRITE/READ FAILURE 
1179 002550 005137 001124 23: COM $GDDAT ; COMPELEMENT ER 
1180 092554 005100 COM RO *RO SAYS SHIFT LEFT WHEN 
1181 002556 001361 BNE 1$ TRY THE COMPLEMENT IF RO NOT O 
1182 002560 006337 001124 ASL SGDDAT ; COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
1183 002564 905237 O01ic4 INC SGDDAT "KEEP LSB SET 
1184 002570 103754 Bcs 1$ ‘AGAIN TILL ALL PATRNS DONE 
1186 ; peat Qe TEST THAT THE BUFFER ADDRESS REG 16 WRITE /READAG 
| 1187 : &TE TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT 0 COM PTRN) 
1188 Re rrremrrieeiercit rater treater ment fetter 
| 1189 002572 oOD004 +473: SCOPE 
| 1190 002574 012737 00220 001110 MOV #1$, SLPERR ;SET UP SCOPE LOOP ADRS 
| 4191 002602 013737 001522 O01122 MOV DRVBAR, SBDADR SET UP BA REG ADRS 
| 119 002610 o0S000 CLR RO, *RO SAYS SHIFT PTRN WHEN 0 
| 1193 002612 012737 177774 001124 MOV GDDAT *FLOAT O RIGHT TO LEFT 
| 1194 002620 013777 001124 176674 1S: MOV scobar BORVBAR ;LD BA 
' 1195 002626 017737 176670 OO1126 MOV BORVBAR, SBDDAT READ IT BACK 
| 1196 002634 042737 000001 001126 BIC #B1T00,$8DDAT DON’T WANT BITOO 
| 
| 
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T3 TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT O COM PTRN) 


a 


DVDRAA. Pil 


002642 


003066 
003070 
003076 


023737 


ocooo4 
012737 
005037 


001124 


001124 
oc0001 
001124 
o0000e 


002736 
001526 


177776 
001124 
001124 


001124 
001124 


001526 
001122 


177177 
077776 
001126 
001127 


001126 
001124 


000010 
001124 


001126 


001124 


001124 


001110 
O01ize 
001124 


001126 


001124 
001126 
000001 


001126 


001160 


CMP SGDDAT,SBDDAT — ; CORRECT? 
BEQ $ “BR IF SO 
ERROR 2 ‘BUS ADRS WRITE/READ FAILURE 
2$: COM $GDDAT ‘COMPLEMENT ZERO 
BIC #BITOO,SGDDAT  ;BIT OO NOT INVOLVED 
COM RO 5RO | SAYS SHIFT LEFT WHEN = 9 
BNE 1$ ‘TRY THE COMPLEMENT IF RO NOT 
ASL Soper ‘COMPLEMENT WAS DONE - ailoe SHIFT ZERO LEFT 
BCC TEST IF BIT 15 DONE 
ADD is SGDDAT KEEP ADOR LS eg 
BR 1s AGAIN TILL ALL PATTERNS DONE 
4 © EEK KEK KKK HK EEE EEE EEE EEE EE EEE EEE EERE EEE EEE EEE EE EEERE RE 
t LTEST 4 TEST THAT THE DATA BUFFER REG IS WRITE/READABLE (FLOAT O COM PTRN) 
Te ec pure ene apiiagentein miei upstebielzemep A EY Ey 
MOV #1$, SLPERR SET UP SCOPE LOOP ADRS 
MOV DRVOBR, SBDADR ; SET UP DB REG ADRS 
CLR RO, ?RO SAYS SHIFT PTRN WHEN O 
MOV SGDDAT FLOAT 0 RIGHT TO LEFT 
1S: MOV ScOtet, SDRVDBR "LD DB 
MOV RVDBR, SBDD: il I, BACK 
CMP SRODAT. gannnet 
BEQ $ scar RE 8 
ERROR 2 ‘DATA BUFFER WRITE/READ FAILURE (LOOP BACK) 
2S: COM SGDDAT COMPLEMENT ZERO 
COM RO RO SAYS SHIFT LEFT 
BNE 1$ ‘TRY THE COMPLEMENT ris ERO N TO 
ASL SGDDAT ‘COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 
INC SGDDAT “KEEP LSB SET 
BCs 1$ AGAIN TILL ALL PATRNS DONE 
j REARHAMERMEMEERELENES EEREEREESEREEEAEESHSESETETOYTE ADDRESGAGLE 
t ETEST 5 EST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE 
jgyertuggzevenennenennesssssansnenesennnasasassesreeentons 
| DRVDBR, RO sGET oe REG ADRS 
MOV RO, SBDADR UP 08 REG ADRS 
CLR (RO) i ERO DATA BUFFER REG 
MOV #177177,$GDDAT ;LD EXPECTED 
MOV #77776, $8DDAT  ;SEND DATA FROM “BDDAT™ 
BISB $B00AT" 1(RO) LOAD HI BYTE DB 
BISB SBDDATEI (RO) ;LOAD LO BYTE DB 
MOV READ IT BACK 
CMP SROOAT SBDDAT * CORRECT? 
bEQ TST : NEXT TEST IF SO 
ERROR 2 ‘BATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG 
55 SERIE ESERIES EERE EEE EEE SEER EEE EEE HEME ER HH EE EE EEE EEE 
ST 6 TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS 
; ji EEHUAESEAEEEOEEOEEAEENEHOEHOESEESTESESENOHEOHESOHEEESELOOOOE 
MOV #10 STIMES ::D0_ 10 ITERATIONS 
CLR GObAT -LD EXPECTED 
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DVDRAAR. PL) Té TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS 





1251 003102 O12777 177777 176410 MOV 8-1, DORVWCR “SET ALL BITS - WC REG 
1252 003110 Ole77? 177776 176404 MOV 8-2; JDRVBAR ‘SET ALL BITS - BUS ADRS REG 

1253 003116 Ole777 177777 176402 MOV #-1' JDRVDBR :SET ALL BITS - DB OUT REG 

1254 003124 RESET -D0 A BUS RESET 

1255 003106 017737 176366 001126 MOV ZORVWCR, SBDDAT :PEAD WC REG 

1255 003134 001 BEQ 1$ iB CLRED 

1257 003136 913737 001520 o01122 MOV DRVWCR,SBDADR ;SET UP WC REG ADRS 

1258 003144 ERROR 3 *RESET FAILED TO CLR WC REG 

1259 003145 017737 176350 001126 13: MOV DORVBAR, SBDDAT ;READ ADRS REG 

1250 003154 042737 000001 901126 BIC #81700, $BDDAT sDON'T WANT BITTOO 

1261 003162 001404 BE 23 IF CLRED 

lep2 003164 013737 001522 o01122 MOV DRVBAR,SBDADR ;SET UP BA REG ADRS 

1263 00317e 104003 ERROR 3 RESET FAILED TO CLR BUS ADRS REG 

1264 003174 017737 176326 001126 2S: NOV BORVDBR, SBDDAT ;READ DATA SUFFER AEC 

1265 903202 001404 BEQ NEXT TEST IF CLRED 

1265 013737 001526 901122 MOV DRVDBR,SBDADR ;SET REG ADRS 

Leb? oo32l2 104003 ERROR 3 *RESET FAILED TO CLR DATA BUFFER OUT REG 
1es9 5 RELLLLKERAELELAFASARALLA FLL L ELA RALELELEELELALAAALELELALEEAAALELER 
1270 t STEST 7 TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT PTRN) 
le71 =  FSSASEKREESFSELERSELSLERERKELELEE cEELEEAELSEAELERELRS LEAL AEKRAZLAEE 

l2e72 003214 t$17: SCOPE 

1273 003216 012737 000010 001160 MOV 810, STIMES “DO 10 ITERATIONS 

1274 O03224 106427 000200 MTPS, 200 2AON’T WANT ANY. INT NTRS 

1275 O032e30 004537 007602 JSR RS, SETVEC “SET UP INTR RETURN ADRS IN CASE 

1276 603234 003332 35 "RETURN TO 3$ ON N ILLEGAL INTR 

1277 00303% 013737 003256 001110 MOV 1$, SLPERR SET UP SCOPE L OOP ADRS 

1278 003244 013737 Oise 001122 MOV DRYCSR, SBDADR T UP CSR 

1279 903eS2 012700 1 MOV #160000, RO TAR aT 2 - HI BITS FOR NOISE 

ey pases Busey seat 901124 = Bre RO, SGDOA : T $LD EXPECT WRITEABLE BITS 

1282 esa Mine 176230 MOV Spree 

1263 003274 017737 176224 001126 MOV BORVCSR, SBDDAT READ IT BACK 

1284 og302 OH 007200 001126 BIC 87200, SBODAT DONT ON"T 90K AT STAT & ROY BITS 

1285 00331 Be5739 001'24 001126 CMP SGDDAT, SBDDAT 

128 003316 001401 BEQ BR IF 50 

1287 003320 104000 ERROR 2 1m 7STATUS REG WRITE/READ FAILURE 
1288 Dose? 062700 po0002 2S: ADD #2,RO ADVANCE COUNT PATTERN 

1289 1353 BNE 1§ *WRITE NEXT PATTERN IF NOT ALL TESTED 
i Bee Bee ss: Bie eae FEES “Sao nor seve inten 
1232 ringed pesos po0200 001124 BIS #200 $cBoat ‘CORRECT EXPECTED 

1293 003342 017737 176156 001126 MOV JORVESR, SBDDAT READ C 

1204 003350 042737 007000 001126 BIC 87000,S8DDAT § ;DON’T WANT ’STRT’ BITS 

1295 003356 104005 RROR -CPU FAILED TO tox OUT DRV1IB INTR REG 
Le 003360 004737 007622 4S: SR PC, RSTVEC GO RESTORE VECTOR 

1298 peer ig TEST HAT RESET CLEARS PUL URITERGLE BITS 2 CET R 

$299 t ETEST 10 TEST "HAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR 
1300 ee i, RU at a A 

1301 003364 900004 T10: SCOPE 

1392 003366 012737 000010 001169 MOV #10 STINES 400 10 ITERATIONS 

1203 003374 013737 O01 001122 MOV AvVeSR “SET UP CSR ADRS 

1304 O03402 012737 O00200 001124 MOV a SbDDAT LO EXPECTED 


oe 
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DVDRAA. P11 T10 TEST THAT RESET CLEARS ALL WRITEABLE br 56 & SET READ 
1305 OC3410 012777 177776 176106 MOV 8-2, JDRVCSR “LD ALL CSR SITS - 
1306 003416 000005 RESET :00 A BUS RESET 
1397 003420 176100 001126 MOV DORVCSR, SBDDAT :READ CSR 
1308 OO3426 023737 boties 691126 CMP SGDDAT, $B0DAT  : CORRECT? 
1309 003434 001401 BEQ TST “NEXT TEST IF CSR CLRED 8 READY SET 
1319 003436 104003 ERROR 3 RESET FAILED TO SET UP THE CSR 
Mle 5 SSAFSLAALEELESRESSSAALALSRALALAALELALALASAASSALALELLAFERESSSF SE 
1333 :STEST 11 TEST THAT THE CSR IS BYTE ADDRESSABLE 
1314 = SFSSSRESSELLSAKELEESLSREFSELRELESSESSESEARREAEEAESERRALSSFSLFLSRALGLE 
1315 o03440 oo0004 teT11: SCOPE 
1316 OO3442 013700 001524 MOV DRVCSR, RO :GET CSR ADRS 
1317 OO3446 010037 OOlize2 MOV RO, SBDADR ; SET UP CSR ADRS 
1318 O034S2 O0S010 . CLR (RO) RO 
1319 OO3454 012737 010300 001124 MOV #10300, SGDDAT ah) EXPECTED 
1320 O03462 012737 040020 001126 MOV 840020;$BDDAT  :SEND DATA FROM “BDDAT™ - USE MAIN + IE 
1321 003470 153760 001126 00000! BISB S$BODDAT.1(RO)  #;LOAD HI BYTE CSR 
1322 003476 153710 001127 S158 $BODATS1,(RO)  :LOAD LO BYTE CSR 
1323 003502 011037 90112 MOV (RO), SBODAT *READ IT BACK 
1324 003506 023737 O01124 001126 CMP SGDDAT,SBDDAT  : CORRECT? 
1325 003514 001401 BEQ 1§ :BR IF SO 
1326 003516 104002 ERROR 2 :DATA ERROR ON BYTE ADDRESSING THE CSR 
132 o0s010 18: CLR (RO) :ZERO CSR BEFORE ADVANCING 
13293 . itest 12 TEST THAT THE 2 “FNCT" BITS CONTROL THE 3 “aTaTe 
1330 :$TE TEST THAT THE 3 “FNCT™ BITS CONTROL THE 3 “STAT” BITS (COUNT PTRN) 
1331 oe A 8 
1332 003522 900004 +612: SCOPE 
1333 903524 012737 003552 001110 MOV #1$, SLPERR ;SET UP SCOPE LOOP ADRS 
1398 003532 013737 001524 O01le2c MOV DRVCSR.S8DADR :SET UP CSR ADRS 
1335 003540 012737 007000 001124 MOV 87000,$GDDAT § :LD EXPECTED 
1336 dove 012700 000016 MOV 816,R0 *RO CONTAINS “FNCT™ BITS WRITTEN 
1337 010077 175746 18: MOV RO, SORVCSR *WRITE INTO “FNCT™ BIT 
1338 0035S 017737 175742 O01126 MOV BORVCSR, $2000 ‘READ BACK THRU “STAT” BITS 
1339 003564 042737 170777 001126 BIC 8170777. SBDDAT :MASK TO “STAT™ BITS ONLY 
1340 b0872 023737 001124 001126 CMP SGDDAT, sSpoet CORRECT? 
1341 00140i BEQ 2s :BR IF SO 
1342 003602 104004 ERROR 4 :"ENCT" BITS FAILED TO SET “STAT™ BITS ‘LOOP BACK) 
1343 003604 162737 O01000 001124 2s: SUB $1090,SGDDAT | CHANGE TO NEXT EXPECT 
1344 0903612 162700 000002 SUB 82, RO ‘DECREASE COUNT PaTTERN 
1346 003616 100355 BPL 1s DO AGAIN UNTIL O TESTED 
1347 5; RSRESELSS SEES SELL SELLA KALE LESSEE ELELLE SLL RAE EL ELLA ERLE LAELLLE 
1348 TEST 13 TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0 
1349 +  SESERESSSLSSELLAELSRSSRESAASLSELSLREEAALERESRESELAERSRELRELAEES 
1350 003620 O00004 t67:3: SCOPE 
1351 003622 012737 000010 001160 MOV 810, STIMES $400, 10 17 ITERATIONS 
1352 106427 000200 MTPS. 200 
1353 RESET ag Te R READY Le 
1354 Bone 17566 MOV 81$, JORVCTO tNTR APRN ADRS 
tee meee pe DRVESR  SEOHOR if A ROPE ADY + IE) 
i309 Bose NPS, Na: FRTR 
1358 003664 MP (SP), (SP) 
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3 
/ORAA EST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL O 
1359 oc 12777 003732 17563! MUV 82$. JORVCTO -SET UP EXPECTED INTR RETURN ADRS 
1360 0036 passes 060186 176622 BIS 8516, SDRVCSR ‘PR pate HE EXPECTED INTERRUPT 
1361 003702 O21b16 _ CMP (SP), (SP) : STAL 
1362 003704 017737 175614 001126 MOV aoRVESR,SBDDAT :GE CSR 
1383 003712 104005 ERROR 5 ‘READY FAILED TO CAUSE AN INTERRUPT 
3c Sete See 1s om tte (SP )+ fv B tay x re HERE - IE NOT WORKIN 
: C ( ; » ING? 
1366 003720 Teed 175600 001126 MOV JORVCSR, SBDDAT i oe ‘i 
1387 003726 104005 ERROR § : READY INTERRUPTED WITHOUT THE IE BIT 
1368 903730 990411 BR 3s :GO RESTORE VECT 
1369 23: CMP (SP)+, (SP)+ ‘FIX STACK SINCE NO RETURN 
1370 003734 017737 175564 901126 MOV aDRVCSR $BDDAT :READ STATUS 
137] 003742 O01124 Soliz6 CMP $GDDAT,$8D0AT  ;CORRECT? 
1372 003750 001401 BEQ 3$ BR IF SO 
1373 903752 104005 ERROR § INCORRECT STATUS ON READY INTR 
1374 003754 904737 907622 3S: ISR PC, RSTVEC :GO RESTORE VECTOR 
1376 es SLFTSSAASSSSSFSALESSSSASESSELSFELALESSSLESELSSRELELSEEEAESLES EE 
1377 TEST 14 TEST THAT GO CLRS READY & FNCT 2 WILL SET IT 
1378 = SEAEESERESERSAEREAERAEEARELAELERELESEAESRESAALLAELERE LELSFLAESLELEE 
1379 003760 so0004 +6714: SCOPE 
1380 003762 106427 000200 MTPS, 200 ;DONT WANT ANY INTRS 
1381 003766 013737 001524 oOl122 MOV DRVCSR,SBDADR :SET UP CSR ADRS 
1382 003774 905037 001124 CLR $GDDAT EXPECT 0 
1383 004000 012777 000001 175516 MOV $1, JORVCSR SET GO WHICH SHOULD CLR READY 
1384 OO4006 017737 175512 O01 MOV BORVCSR, SBDDAT READ THE CSR 
1385 OO40i4% 023737 O0112e4 OD1126 CMP SGDDAT,$BDDAT  :CORRECT? 
1386 OO4022 001401 BEQ 1$ -BR IF SO 
1287 OSONCS4Y 104006 ERROR 6 ‘THE GO SIT FAILED TO CLR READY 
1388 004026 052777 000004 175470 1S: BIS #4. JORVCSR *FNCT 2 D SET READY 
1389 004034 012737 002204 001124 MOV #2204, $GDDA LD EXPECTED 
i O04042 017737 175456 OOll26 MOV BORVCSR, SBDOAT :GET CSR 
1391 OO40S0 023737 001124 001126 CMP SGDDAT,$B0DAT  ;CORRECT? 
1392 0040S. 001401 BEG TSTIS ::NEXT TEST IF SET 
1333 OO4060 104006 ERROR 6 :FNCT 2 (VIA ATTN) FAILED TO SET REACY 
1395 .: SELLER TERESRTEEEESEHSERESREE LEAR EE ERE SEEKS HREEA PLE EAESLE EERE RH SS 
1395 :&TEST 15 TEST THAT READY CONTROLS 'BAR’ BITOO 
1357 = SHESSSSSEESESRLSAEERESLAAAERSEREASARASLALALERSAALARESLHLASERELLEE 
1396 04062 O00004 T1S: SCOPE 
1399 004064 912777 000004 175432 MOV 84, QORVCSR ;SET READY 
1900 004072 013737 001522 001122 MOV -SET UP BAR ADRS 
1401 004100 012737 000001 001124 MOV 81, SGDDAT “EXPECT LSB OF BAR 
1492 OO4106 005077 175410 CLR CLR BAR 
(1403 OO4112 017737 175404 001126 MOV SDRVBAR, SBDDAT ;READ BAR 
1404 004120 023737 001124 001126 CMP SGDDAT,$8DDAT CORRECT? 
1405 004126 001401 BEQ *BR IF SO 
1406 04130 104002 ERROR 2 ;g0 FAILED 10 READ A ONE(SS8 TIED TO RDY) 
1407 13 Ot 000001 175364 1S: MOV $1, JORVCSR SET GOL BAR BITOO) 
i408 0041 ee 175356 O01126 MOV DORVBAR, SBDDAT READ BAR 
1409 004146 001403 BEQ g -BR IF ZERO 
1410 OO41SO 005037 001124 CLR $GDDAT “EXPECTED ZERO 
ai OO4i54 104 ERROR 2 ‘WHEN RDY CLRED-AOO FAILED TO READ A ZERO 
i4ie OO415e Ole 900004 175340 2$: MOV #4, JDRVCSR INSURE ROY SET BEFORE ADVANCING 
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ivcey la TEST THAT CYCLE’ TLL CLOCK TE OER (IND 


ST ’CYCLE’ WILL CLOCK THE OBR (IN: 
"eS ease trainee nia teammate sehe 
COPE 


;SET_UP per ADRS 
;LD EXPEC ite 


iD Om. WITH sl2eS2S2 
i 9ET cyc x ‘ SHOULD CLK DBR (IN) 
; CHANGE (OUT 


) DATR - SHOULD NOT AFFECT (IN) 
;READ Ber 
; CORRECT? 
:BR IF 
;CYCLE DIO Ay LATCH DBR (IN) CATA 
NOW EXPECT 8S2Se5 
OBR 


CORRECT? 


;NEXT TEST IF SO 


 bBR FAILED TO READ WHEN CYCLE CLRED (NORMAL) 
peer ip recy CINGLE “DATI" NPR TRANSFERS (FLOATING 0 COMP 


RS (FLOATING C COMPLEMENT PATRN) 


HE HHHHHHEH HHS HHH HHH HHH HH HHHBHHEHEE HEE HHH Eee 
7: SCOPE 


;SET UP SCOPE LOOP ADRS 
GO SET UP INTERRUPT RETURN 
;RETURN TO 2$ ON INTR 


FLOAT ZERO RIGHT TO LEFT 
;Rd CONTROLS DATA SHIFTING 


ONE _XFER 
‘GET DATA WORD — “DBUF™ 
MEM DATA 


igo RESTORE 10. ATER (CHECK FCR WCO) 

; INTR ~My H HERE - FIX STACK SINCE NO RTI 
;GO CHECK STAT 

;CSR STATUS EXPECTED 


‘ RETURN HERE iF mes ER - EXPECTED CYCLE, READY & IE 


:G0_RESTORE 
;RETURN HERE F "He ER - EXPECTED 0 
:60 nie ok VECT 
URN HERE IF BAR ER - SHOULD = DBUF+2 


o RESTORE. VEC VECT of 
- SET UP XFER ADRS 
;LO EXPECTED 


: 


Bae 


ii test tet ny 


Boece 
=QRRn 
RIS 


-O 
BY 


8 
ais 


un 
_ 


ie -11-DVDRA-R_ ORVI1S DMA INTERFACE DIAGNOSTIC 
Pil Ti? TEST SINGLE “DATI" NPR TRANSFERS (FLOATING O COMPLEMENT PATRN) 


175042 901126 
001124 OdOlles 


001526 001122 


001110 


174736 
174732 


174722 
174714 


001122 


001120 


001126 
001126 


001122 


+ ee ee 
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MACYL1 27(665) 11-OCT-76 15:39 PAGE 31 
QORVOBR SBDDAT ;READ DATA XFERED 
$GODAT,$B008T  :CORRECT 


3 :BR_IF go 
DRVOBR, $8DADR SET UP DBR ADRS 
le DATA ER - ae WRONG DATA 


4$ :GO_RESTORE V 

RG RETURN HERE ON GOOD DATA - NOW COM PATRN 
Rl :KEEP TRACK OF COMPLEMENT 

1$ 300 COMPLEMENT OF THIS FLOATING ZERC IF C 
BR fat or SHIFT ZERO LEFT 

1$ RO BIT IN CARRY 

PC, RSTVEC arnt ERO e 


prpeenaneuacnecsnagensuanstaneusecusateasnereanesanraerenentiees 
TEST SINGLE “DATO™ NPR TRANSFERS (FLOATING 0 COMPLEMENT PATRN) 
Sebeeitaagseatstaaboosnszusoentusntontasnecesoionseneie 


#15 SLPERR :SET UP SCOPE LOOP ADRS 
RS, SETVE GO SET UP INTERRUPT RETURN 

RETURN T Oe ON INTR 

#-2,RO0 sELORT ZERO RIGHT TO LEFT 

RI 1 CONTROLS DATA SHIFTING 

#-1 QORVUCR ONE XFER 

SOBUF , JOR 08 DATA WORD TO “DBUF” 
:SET UP DATA IN DBR 

BOs. BORVCSR  ;SET IE, GO 8 FNCT1 (C1 CONTROL) 


#400, » SORVCSR ;SET CY 


ORVCSR, SBDADR :SET UP 
#170e $GDDAT —«:LD_ EXPECTED 


CSR, SBDDAT THE CSR 
5. $CO aERILED TO INTERRUPT (CHECK FOR WCO) 
(SP)+. (SP)+ SINTR TURNS THERE - FIX STACK SINCE NO RTI 
RS, CKSTAT ; 60 CHECK 

iCSR STATUS TEXPECTED 

? ise URN HERE IF STATUS. ER - EXPECTED STAT C, 
4$ EO REST BRE VEC 
10 RETURN HERE “E ue ER - EXPECTED 0 
4g STORE VECTOR 
ll 60 F BRR ER - SHOULD = DBUF+2 
4g :G0 RESTORE VECTO 
8DBUF , SGDADR TURN HERE IF oR - SET UP XFER ADRS 
RO, SGHDAT 
DBUF . SBDDAT iD DATA XFERED 
SGDDAT, SBDDAT * CORRECT? 
DRVDBR, SBDADR jSET UP DBR ADRS 
13 ‘DATA ER - MEM CONTAINS WRONG DATA 
4§ GO RESTOR T 
RO RETURN HERE ON GOOD DATA - NOW COM PATPN 





ee eee ee 


= 





MAINDEC-11-DVDRA-A ORV 48 OMB INTERFAC AGNOSTIC CY1} ape 1-0CT-76 15:39 PAGE 32 
DVDRAA. P11 T20 ST SINGLE “DA of! RANSFERS' FLOATING 0 COMPLEMENT PATRN) 
47 os CUM RI EP TRACK OF COMPLEMENT 
188s BoM = oof 3 BNE 1§ REE OMe LEMENT  § THIS FLOATING ZERO IF 9 
ASL RO  CONBL ERENT WAS DONE - NOW SHIFT ZERO LEFT 
1253 INC RO. sKEEP L 
1525 Bo aoag opens Bcs 1$ AGAIN TILL ZERO ogi IN CARRY 
1506 004746 004737 cO7622 4§: ISR PC, RSTVEC GO RESTORE VECTOR 
1528 GHHHHEHHE SHEE HHB HEHEHE EEHEEHEGHEHHE HEHE EEE 
1529 : TEST 21 TEST 200 “DATI” NPR TRANSFERS (BURST MODE) 
1530 s RELKRERARERAELELELEREREKESRALELE KALE LL SRALALAALELAARAKRALELAAALKEES 
1531 004 000004 - T21: SCOPE 
1532 004754 9012737 O00010 o01160 MOV #10 STINES D0 i ITERATIONS 
1533 O04 004537 007602 JSR RS, SETV ;60 SE T Up INTERRUPT RETURN 
1534 O04 4 15 TO 1 
1535 004 Spar? 010026 hiss PC. LDBUF $6 LOAD BUFFER witH COMPLEMENTING PATRN 
1535 004774 012777. 177470 174516 MOV I dbO. JORVWCR Ab WC REG - WILL DO 200 xFERS 
1537 005002 012777 014476 174512- MOV SDBUF,SDRVBAR :SET UP CURRENT ADR 
1538 005010 106427 O00000 MTPS, ‘ENABLE THE INTR 
1539 005014 012777 900101 174S02 _ MOV #101,9ORVCSR  ;SET IE 8 GO 
1540 005022 052777 OOO400 174474 BIS 8400; 9DRVCSR ~:SET CYCLE 
1541 005030 013737 001524 O01122 MOV DRVCSR.SBDADR ;SET UP CSR ADRS 
fed Geeem flere (ower Galle Bay SONEEPEonr/ABAE Te ee 
| teu Bhepes Bt AtiBo fade Bt 00 SDRVESR GU 1ntR ENee 
| 1545. O0S060 . 104005 ERROR 5. " sco aE BILED 10. INTERRUPT (SNGL CYCL ON COULD CAUSE THIS) 
| 789 Bhepes AOOESe- erp sp 
. 18: CMP )+, (SP)+ i RTA BELEN HERE - FIX STACK SINCE NO RTI 
| 1548 O0S066 004537 007645 JSR CKSTAT GO CHECK 
' . 1849 905072 000700 : 700- - CSR STAT CTED 
' $550 005074 000310 200. ; XF 
| 1551 005076 104007 ERROR 7? iRT HERE If STATUS ER - EXPECTED CYCLE, READY 8 IE 
| 1552 005100 o004e5 BR-- 2 RESTORE VECT 
1553 dos 102 194019 ERROR 10 N HER HERE IF ie ER - EXPECTED 0 
, 1555 regen TOsOri ERROR il c) Fes HERE F ‘Be ER - SHOULD = DBUF+620 
i 2 005110. doo4e BR 2s ts RESTORE VECTOR 
! 005112 012737 015314 001120 MOV #0BUF +616 SGDADR’ SE LAST XFER ADRS WHERE #70707 SHOULD BE 
1558 005120 O1e737 070707 - 001124 MOV #70707, SGODAT Lb Expect 
1559 005106 017737 174 001126 MOV JORVDBR, SBDOAT Dee SHBUL HAVE LAST DATUM 
|. 1560 005134- 023737 O01124 001126 CMP SGDDAT,SBD0AT © ;CORRECT? - 
'- 3561 005142 901404 BEQ 2s : F90 
ca. 5 bos 013737 001526 001122 MOV DRVDBR, SBDAOR SET AU DBR ADRS 
a. 1S2 104012 ERROR i2 T ID NOT CONTAIN EXPECTED LAST XFER 
> 1568 005154 004737 007622 2s: _ JSR PC, RSTVEC . 360 RESTORE VECTOR 
1368 : j HePeeaeeeeererenneveseseereyveneeteseaenerersestaevesseacienty 
156? - ) - &TE TO” NPR TRANSF' T MODE) : 
1S&8  SERAEEEUEUORBOEEPESSESR|STEDESEOSONSEEESSORESSoSECeoESIeus+IeG 
1569 005160 op0004 té122: SCOPE 
1570 bos 16e - 01¢737 000010. 001160 MOV #10, STIMES ;:D0°10 ITERATIONS 
_ 1571 005170 004537 007602 JSR RS, SETVEC i SET UP INTERRUPT | RETURN ~ 
1572 005174 005274 15. Be TDR TO 1$ ON INTR 
1573 005176 012777 177470 174314 MOV #-200.,aDRVWCR ;WORD WC Red ~ WILL D0 200 XFER’S 
1574 005204 012777 -014476 174310 MOV WOBUF,SDRVBAR  ;SET UP CURRENT ADRS 
aa a? : 
—_ > 





ee a ee ee ee 


— ° = . : ai - ? 
ee a + oS * <m~ J 
~~, 
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-DVDRAA. P11 T22. TEST 200 -“DATO™ NPR TRANSFERS, (BURST MODE ) 
= > . /-_ ~ 
_ 1575 O0S212 012777 177377 - 174306 — MOV. 9177377, OORVOBR i TIS Ta Ni WRITTEN TO NEM” 
1576 005220 106427 000000 = = fps; 0 :E 
1577. 005224 b1 777 000103 174272 -. MOV #103, 3DRVCSR etre TE ENC a GO 
1578 005232 000400 174264 BIS > #400 aDRVCSR ;SET CYCLE  ° 
1529 005240 013737 001524 001122 MOV DRVCSR,$BDADR  :SET UP CSR ADRS y 
1580 O0S246 001124 MOV #1702, $GDDAT.,- :LD EXPECTED 
1581 005254 917737 174244 OOlle6 ~ MOV JORVCSR, SBDDAT :READ THE CSR ~~ ey 
1582 005262 000100 174234~ BIC #100,dDRVCSR CLR INTR ENABLE % 
1583- 005270 1 : ERROR : ‘WOO FAILED To | NTERRUPT (SNGL CYCL‘ ON“COULD, CAUSE THIS) 
1584 005272 000416 . oe 2s 60 R STORE V 
1585 O0Se74 Oecbeb 1S: CMP (SP)+. (SP)+ : INT R RETURNS HERE - FIX STACK SINCE NO RTI 
1586 005276 OO4S37™ DO7ENt=-- == 2 | JSR- — R5,CKSTAT :GO CHECK 
1587 005302 001702 ae : ;CSR STAT TEXPECTED 
1588 005304 000210 200. 18° OF XF 
1589 005306 104007 ERROR 7 RET URN HERE IF STATUS ER - EXPECTED STAT C, 
1590 “CYCLE, READ FNCT ! 
1591 005310 07 BR 2 5 G0 RESTORE VE 
1592 005312 104010 ERROR 10 TURN HERE IF WC ER - EXPECTED ‘0 
1593 005314. os BR 2g :GO RESTORE VECTOR 
1594 005316 104011- ERROR 11 ‘RETURN HERE IF BAR ER - SHOULD = DBUF+620 
1595 005320 o00403 BR 2 :GO RESTORE VECTOR 
1596 005322 004737 oO10150 JSR PC, CKDAT "RETURN HERE IF OK - NOW GO CHECK DATA 
1597 005326 1 ERROR 13 ‘RETURN HERE IF DATA ER - DBR CONTAINS WRONG DATA 
1598 005330 004737 007622 2S: ISR PC, RSTVEC ;RETURN HERE IF DATA CHECK Ok - GO RESTORE VECTOR 
1600 $ | HEHHHHHEEB HEHE AHHH A HEBER 
1601 : AEST 23 TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF ~ 
1692 hhh halakha hal ntalalalalalalalalalalalalalalelialslslalalalalalalalalaialslalalsisisislisisislalalalalslalslelsleleiela 
1603 905334 oo0004 +8723: PE 
1 005336 012737 000010 001160 OV #10, STIMES ;:D0 10 ITERATIONS 
1605 005344 013737 001524 OO0llee2 MOV DRVESR, SBDADR sip? ip RS 
1606 005352 004537 007602 JSR RS, SETVEC :60 ser iP INTR RETURN 
teog SOese0 bis7eB 000010 sOV 810 SRST TO OL INTE ng. 
> s ppesen et aes CLR SADOAT :USR $BDDAT AS A COUNTER™ 
1610 905370 01 177470 174122 1S: MOV #-200. ,9DRVWCR ;00 XFERS (DATI’S) 
1611 1555 014476 174116 MOV 8OBUF , IDRVBAR 
tele 005404 106427 O00000 MTPS, ed “ALLOW AN INTR 
1613 005410 012777 OOD101 174106 MOV #101,Q0RVCSR ;SET IE & GO 
1614 005416 052777 OO00400 174100 BIS 8400; aDRVCSR  ;SET CYCLE 
1615 O05424 900240 NOP sFTREDEE 
_ 1616 005426 000240 NOP eee 
1617 005430 O00240 NOF 
1618 005432 005237 001126 23: INC SBDDAT ;START COUNTING - SHOULD NEVER GET HERE 
1619 005436 001375 BNE 25 UNTIL 64K 
1620 OOSH4O0 012737 000700 001124 MOV #700, SGDDAT ID EXPECTED 
i621 OOS4% 017737 174052 001126 MOV DDRVCSR, SBODAT READ STA TUS 
Ieee O0S4S4 042777 O00100 i7404e2 RIC #100,aDRVCSR  ;CLR IE- 
1623 005462 _ 104005 EOROR : :NO INTERRUPT ON 300 DATI’S 
1624 O05464 000407 BR 4g GO RESTORE 
1625 005466 3S: CMP (SP), (SP)+ eth Hie ONO RTI 
1626 0054 DEC RO 
1 0054 1336 BNE 1$ ‘BR IF 
i628 005474 005737 001126 TST $BDDAT ‘SHOULD’ STILL BE ZERO 
























ral 
frie 


1be3 = Dene ~TO4014 -—.. Bike is rte T AD (SINGLE CYCLE20) FAILS TO LOCK OUT CPU 
1e31 “peeRS  ABYOAS  oomsoe ug: ier zs RSTVEC ORR STORE Cre TOR 


1 
1633 jSrepeaeenecesenerteeesesesceneseineneaeaeneaesnacecesedesstatt 


1682 005770 005477 173524: NEG ™ @DRVWC : NEGATE FOR WC 


MAINDEC= 11 -DVORA- =A.- ORV118 MA INTERFACE DIAGNOSTIC MACYL1 27(665) 11-OCT-76 15:39 PACE 34 
DVDRAA 123 .-. TEST. THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF 
1634 STE TEST_THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON 
1635 io UR A OR Be BO RE RB 
_ 1636 005510 000 téT24; SCOPE 
1637 00551 Ole? 3? 001160 MOV -_ #10, $TIMES ; D0 ie FTERATIONS 
1638 O05 13737 001524 OOllee MOV DRVCSR, SBDADR ;SET R ADRS 
1639 004537 JSR ~° RS, SETVEC__ :60 Toe r INTR RE TUR 
1640 005532 005640 35 < *RETURN-TO_3$ ON INTR 
1641 000010 MOV #10 RO :D0 EIGHT 200 WORD XFER’S 
1642 005540 Ole73s7 000000 001126 MOV 0, $BDDAT :USE $BDDAT AS A COUNTER 
1643 012777 177470 173744 1S: MOV 1 osaH SDR VWCR ;D0 200 XFERS (DATI’S) 
1644 005554 012777- 014476 173740 MOV SOBUF; SD RVEaR : FROM DBUF 
1845 005562 106427 000000 MTPS, 9 ALLOW AN INT 
16% 005566 012777 000111 173730 MOV #111,9DRVCSR SET IE FheTS & GO 
1647 005574 052777 SO0400 173722 BIS #400; JDRVCSR ; SET CYCLE 
1648 O0S602 000240 NOP ‘PREES 
1849 O0S604 005237. 001126 2s: INC $BDDAT istenT COUNTING 
1650 005610 001375 BNE 2$ sUNTIL B4K BHK SHOULD INTR BEFORE OVERFLOW 
1651 005612 012737 OO4710 001124 MOV #4710, SGDDAT 
1852 005620 017737 173700 001126 MOV JDRVCSR, SBDDAT READ STATUS 
| 1653 005526 042777 000100 173670 BIC #100,aDRVCSR  ;C 
1654 005634 104005 ~~ ERROR 5 NO I INTERRUPT On g00 DATI’S (WITH SINGLE CYCLE) 
ieee Be Base i 2 pai 
| 1656 3S: CMP (SP)+, (SP)+ : FIX c SRE Ro RTI 
| 1657 005642 005300- DEC RO 
1658 OOS64Y4 001340 BNE 1$ Eo 
| 1659 00564% 022737 O0C00D 001126 CMP , SBDDAT T SHOULD HAVE BEEN COUNTED 
1660 O0S56S4- 103401 BCS 4§ 
| 1661 005656 104015 ERROR 15 : CPU ABPEARED LOCKED OUT WITH SINGLE CYCLE SET 
| 1662 OOS660 017737 173640 001126 4S: MOV QDRVCSR,SBODAT :READ STATUS 
| 1663 012737 004710 001124 MOV #4710,$GDDAT  3LD EXPECTED 
| 1684 005674 023737 001124. 001126 CMP $GODAT, SBDDAT ; CORRECT = ~~~ 
1665 005702 001401 BEQ 53 SO 
| 1666 o05704 104007 ERROR 7? ignnt INCORRECT ON XFER WITH SINGLE CYCLE SET 
| 1667 706 004737 007622 Ss: JSR PC, RSTVEC STORE VE 
| 1669 ; SEEKERS RA RHEE EAELARAE EAE SLE LRA LEER RAAEERARRRLALSRELAAAHAARAKAEKE 
1670 TEST 2s TEST THAT MAINT.MODE CONTROLS FNCT BITS, XFER DIR & SINGLE CYCLE 
1671 HBHBHHEHHBHH HE GHEE HEHEHE HHH HHHBHBBH EEE Hit 
| ib 12 909004 tétas: sc ~—— 
| 46 14 012737 000200 901160 MOV #200, STIMES ;:D0 200 ITERATIONS 
| 4674 005722 004537 007602 JSR RS, SETVEC ib Ser uP INTR RETURN 
| 1E9e BOS7SB DONT a FC IAL COM PATTERN) 
; 10 
| 46 bora 127 b1i70 702 o0b0Se2 MOV ni 170e, a8 ‘g "arte oeee cares Satie 
| 1678 me b1e737 90000 006054 HOV. i, 4§ CONTAINS THE CURRENT XFER NO # (MAX 8) 
| 46 eg eae posagg 173540 MOV’  sDBUF, 2DRVBAR iat UP CURRENT ADRS 
(1681 762 013777 006054 173530 MOV 4§ SORVUCR 
i 
j 
| 


--. + + 
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DVDRAA. -Pil Tes TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE CYCLE 


012777 010101 ‘173522 “ov #10101 DORVCSR ;SET UP MAINT, IE & GO 
052777 00400 153014 BIS 00, JORVCSR SET YCL 

013737 0015e4 OOll2e MOV gavcdh SBDADR -SET UP CSR ADRS 

013737 O060S2 001104 MOV G *LO- EXPECTED- 

017737 17347% OO!126 MOV SS AeeR $B00AT “READ STATUS 

042777 OO0100 173464 ------BIC--- #100,aDRVCSR  :DIS 

104005 ERROR 5 NO INTR ON XFER (IN MAINT MD) 
000440 ac 6$ *GO_ RESTORE VECTO 


004537 007646 - JSR RS, CKSTAT 5 G0 CHECK ST 
011702 . 33: 11702 . THIS LOCATION WILL CONTAIN EXPECTED STATUS 


| 005774 
006010 
006016 
006032 
DObD40 
Q Sead 022625 = ~ 23: CMP (SP)+. (SP)4 : RETURN HERE ON INTR - FIX STACK SINCE NO RTI 
692 OO06046 ATUS 
634 ete 900001 45: 1 ;THIS LOCATION WILL CONTAIN CURRENT ore # (MAX @) 
1695 006056 104007 ERROR 7 ‘RETURN HERE IF STATUS ER - WILL EXPECT 
1696 *MAINT— COUNT INCREASE OF FNCT 7 STAT BITS, 
1697 : ‘CYCLE: READY & IE 
1698 006060 000431 BR 6S !GO RESTORE VECTOR 
1899 006062 104010 ERROR 10 “RETURN HERE IF WC ER - SHOULD BE O 
1700 0060645. 000427 BR ~-- &$ GO RESTORE VECTOR 
1701 006066 104011 ERROR 11 :RE HERE IF BAR ER- 
1702 006070 O00425 BR 6$ GO RESTORE VECTOR 
1703 006072 062737 001002 op60S2 ADS #1002, 3$ “RETURN HERE IF OK - ADVANCE EXPECTED STATUS LOC 
1704 006100 032737 BIT #81713, 35 LOOK FOR LOW 
170S 00610 0143 -~———  _ BEQ ‘BR IF NOT 
1706- 006110 012727 010700 o060S2 MOV #10700, 3$ *FNCT & STAT BITS SHOULD BE ZERO THIS TIME 
| 1707 008116 005237 OO60S4 cs: INC 4§ _ }ADVANCE CURRENT XFER # 
1708 O06l22 022737 OO0011 Oo60S4 CMP #11,4$ ‘HAVE 10 XFERS BEEN DONE 
| 1709 006130 001307 BNE 1 ‘BR IF NOT af 
| 1710 006132 004537 o10216 ISR RS, CKDAT! *NOW GO CHECK DAT 
| 1711 906136 O00010 — 10 # OF XFER’S 10 CHECK 
| 3712 006140 104013 ERROR 13 ;RETURN HERE IF bara ER - (WITH MAINT SET) 
| 1713 O06142 S00240 NOP RESTORE VECTOR NEXT ¢ 
| i718 006144 004737 o07622 6S: ISR PC, RSTVEC GO RESTORE VECTOR ~ 
1716 ee ee peer oe eee recy THAT A DATL FROM A NOM EXISTANT GUS GORS GET 
1) Day - : i HTesT 26 TEST. THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS ‘NEX’ 
1718 Files etrepecaa Eecbaonaceansnnenemmensunedtnsbeonasarneannenas 
| 1718 006150 000004 tét26: SCOPE 
| 1720 006152 012737 000100 001160 MOV #100 STIMES ;:D0 100 ITERATIONS 
' 1721 006160 012700 o0000e2 MOV 2, RO sO WHEN ZERO SAYS CLR ’NEX’ WITH RESET 
| 1722 006164 004537 007602 1S: ISR RS’ SETVEC 5 Set UP INTERRUPT RETURN 
| HB BEIR BRS vz irom yw amace TOE Cee 
| 1725 read Bt 169790 173314 MOV #160000, 2DRVBAR ;SET UP CA TO 160000 (RESERVED) 
| 1726 006206 106427 000000 MTPS, ALLOW INTR 
1727 OObele 012777 O00i61 MOV 161,@0RVCSR SET IE, XAD 17,16 8 GO 
| 41728 052777 OO00400 173276 BIS #400; aDRVCSR Et CYCLE 
| 1729 006226 013737 001524 01122 MOV RVCSR, SBDADR T UP CSR ADRS - SHOULD NEVER GET HERE 
| 1730 006234 O1e737 140760 001124 MOV 8140780, $GD0AT LD EXPECTED 
1731 O06e42 017737 173256 001126 MOV BORVCSR’S$BDDAT ;GIVE THEM THE STATUS 
| 1732 006250 042777 OODI00 173246 BIC #100, aDRVCSR  ;CLR 
| 4733 O0b255 104016 ERROR * NEX RILED TO CAUSE AN INTERRUPT 
| 1734 000521 BR GO RESTORE 
| 1735 006262 CMP (SP)+. (SP)+ ‘SHOULD INTR RETURN HERE - FIX STACK 
| 1736 006264 017737 173234 001126 MOV @DRVCSR,SBODAT ;READ THE CSR 
| 


ee oe 


1737 
1738 
1739 
1740 
1741 
1742 
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: 
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MAINDEC-11-DVDRA-A 
DVDRAR.P 


T26 


012737 
023737 
001405 
013737 
104016 


140760 
001124 


001524 
173172 
177777 
001124 


001124 
O01i26 


001122 


001126 
00iie4 
001126 


001122 
001126 
001124 
001126 


001122 


ONES THAT B DATT PAGH ® NON 


3s: 


4§: 


S$: 


6S: 


paride” f Reg OCT- xe 15:39 PAGE 36 


~EXISTANT 


MOV 8140760, $GDDAT ;LD EXPECTED 
CMP §GDDAT,$8DDAT  ;CORRECT? 
BEQ 3$ ‘BR IF SO 
MOV DRVCSR, SBOAOR -SET UP CSR 
ERROR ‘STATUS ER - EXPECTED 
ER, NEX, CYCLE, READY, IE, XADL7 & XADIE 
SR 7$ ; 60 RESTORE VECTOR 
MOV BORVUCR $B00AT "READ WORD COUNT 
MOV : SHOULD STILL HAVE -1 
CMP ScOOAT, SEDOAT CORRECT? 
BEQ 4g iBR r 
MOV DRVWCR, SBDADR sae ADRS 
ERROR 10 HE INCRENENTED ON ON A TIMEOUT ER 
BR 
MOV BDRVBAR, SBDDAT ee. BUFFER ADRS 
MOV 8160900'S$GDDAT :SHOULD NOT HAVE INCREMENTED 
CMP SGDDAT, $8DDAT  ;CORRECT? 
BEQ 5 *BR IF SO 
MOV DRVBAR,SBDADR ;SET UP BAR ADRS 
ERROR 11 ;BAR_INCREMENTED ON A TIMEOUT ER 
BR 7§ GO RESTORE VECTOR 
DEC RO “KEEP TRACK ON HOW TO CLR 
BEQ &$ :BR IF CLR BY RESET 
BIC 840000, 3DRVCSR WRITE NEX TO ZERO 
nov arch, Seba TREAD eC TeD 
CMP $GDDAT,SBDDAT ;C ers 
BEQ 1$ 3BR IF SO + REPEAT TEST FOR RESET TEST 
MOV DRVCSR,SBDADR SET 
ERROR 16 :*NEX’ FAILED TO WRITE TO ZERO 
BR 7§ 60 RESTORE VECTOR 
RESET iI BUS 
MOV BDRVCSR, SBDDAT READ THE C 
MOV #200, SGODAT EXPECT ONLY READY 
CHP SGDOAT, SBDDAT  ;CORRECT? 
i 
MOV DRVCSR,SBDADR ;SET UP CSR ADRS 
ERROR 1 16 RESET Fal TO O CLR *NEX? 


RSTVEC GO 
jepeeneiaeanvensEeneesceneessubavenseeaenneenueapeeasenees sees 


jee NRE eneneeeenE ene EERE HEE RE EERE EEE RE REED 


t$127 


1$: 


SC 
MOV #10, STIMES 400 ITERATIONS 

ISR me eetice a UP INTR RETURN 

Fp PCL iRET SET ur UP Oe ON SPECIAL COM PATTERN) 
MOV : SET UP WRRENT S 

HOV #-200. , ORVWCR Rl UP FOR 200 XFER’S 

mov’ #10101 a0 SDRVCSR eet Oe MAINT IE & GO 

ate DAT t eae 

INC sent erat 
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DVDRAA.P11 Te? TEST 200 NPR TRANSFERS IN MAINT MODE 


1791 006620 001375 BNE 1$ ‘WAIT TILL DONE - SHOULD INTR SEFORE OVFLO 
1792 O0662e2 013737 001524 001122 MOV ORVCSR, SBDAOR SET UP CSR ADRS 

1733 006630 012737 010700 001124 MOV #10700.SGDDAT LD EXPECTED 

1794 006636 17737 172662 O0lle6 MOV DDRVCSR, SBDDAT READ STATUS 

1795 44 042777 O0D100 172652 BIC #100,aDRVCSR  § ;DISABLE IE 

179% 006652 104005 ERROR : ‘NO INTR BETER 200 MAINT MODE XFER’S 

1797 006654 900420 5R 3$ ; G0 STORE VECTOR 

1798 O06656 Oecbeb es: CMP Pi (SP)+ ‘RETURN HERE ON INTR - FIX STACK SINCE NO ATI 
1799 006660 004537 007646 JSR CKSTAT ; 60 CHECK STATUS 

1800 006664 010700 10700 “EXPECTED STATUS 

1801 006666 000310 200. ‘4 OF 

1802 006670 104007 ERROR 7 "RETURN HERE IF STATUS ER - EXPECTED MAINT, 





803 : 
000411 BR : VECTOR 

180s 006674" 194010 ERROR 10 ‘RET URN HERE IF WC ER - SHOULD BE O 

180? Boeybe | ODOoS BR’ og erie ae, eee aii, enasaiic gual 

1809 005704 O45 37 010216 | ISR RS, CKDAT1 eRe HERE IF 9 OK Kaho GO CHECK DATA 

git 0b? 12 104013 ERROR 13 aie HERE IF bate ER - (WITH MAINT SET) 

1813 006716 pons so 007622 38: JSR TVEC Rf 

at ; eee eteaa aera ane eT aE AVAILABLE 4K 

ete 006722 00004 ae ere nee rt ee 

1818 006724 012737 o90005 001160 MOV #5, STIMES 0.5 ITERA TIONS 

1813 506/32 DO4S7 007602 JSR RS; SETVEC 160 ser UP INTR R RETURN 

1821 006740 005037 o01S4e2 CLR DBUFP GET LOWEST BUPTER NAERS 

1822 006744 062737 O2 oo1s42 1S: ADD #20000 DBUFP *POINT. TO NEXT 4K 

1823 006752 001540 o001542 CMP ORSZ, OBUF "IS THE 4K THERE? 

1824 760 001465 BEQ Ss ‘BR IF NOT 

He Gere Ga? SU reac, ty alka fStop Buen paneOmene™ POTTER 

Hs Go Vlecs komad eB, fe ete PT Bia ees 

1829 012777 010101 172510 Nov . #10101 BDRVCSR Set MAINT, ,IE & GO 

tes? See peste Meeted 001126 MOV #0 O abRY ;SET UP. A COUNTER 

1832 007030 005237 001126 2s: INC SBODAT “COUNT AWAY 

1833 1375 BNE 2S *SHOULD ALWAYS INTR FROM THIS LOOP 

1834 007036 013737 001524 001122 MOV - DRVCSR,SBDADR SET UP CSR ADRA 

1835 007044 0 010700 001124 MOV #10700; §GDDAT :LO EXPECTED 

1836 0070S2 017737 172446 001126 MOV JORVCSR, SBODAT READ CSR 

1837 007060 042777 O00100 172436 BIC #100, 30R ISABLE IE 

1838 007066 LO400 : ERROR 5 iNO INTR RE TER 200 MAINT MODE XFER’S 

1g40 oo7are toecee shane «38s CHP Pieatgeye RETURN eRe ON INTR - FIX STACK SINCE NO RTI 

1642 607109 910700 19700 jEXPECTED STATUS 

1844 007104 104007 ERROR 7 RETURN ERE IF STATUS ER - EXPECTED MAINT, 





MO3 
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1898 te A RE AOE TE Bein 


DVDRAA. P11 T30 TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILABLE 4k 
. 1845 -CYCLE, READY & IE 
184 007106 oo041e BR_ 4g ;G0 0 RESTORE VECTOR 
1847 007110 104010 ERAOR 10 HERE He ER - SHOULD = 0 
ieu9 Seti MOOT ERROR ty f TURN HERE TF BA AR ER - SHOULD = DBUFP+620 
os - = + 
18d 007116 ieaa BR ¢ G TERN OEE veeT BR 
1851 007120 004537 010216 JSR RS, CKDAT1 RETURN HERE IF OK - NOW GO CK DATA 
1852 007124 000310 200. :# OF XFER’S 
1853 007126 104013 ERROR 13 ‘RETURN HERE IF DATA ER 
1854 007130 000401 BR 4g ;G0 RESTORE VECTOR 
1855 007132 000704 BR 1$ TRY NEXT BANK 
1856 007134 012737 O14476 cOlSHe 4S: MOV #DBUF , DBUFP j RESTORE oBUrrER ADRS TO LOWEST 4K 
1887 007142 004737 007622 JSR P REST CTOR 
1858 OR , A A i A SE 
1859 TEST 31 TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR 
1860 - © KEKE KEEAL AAA KER HELA KEKL ARAL RAKE KHRARERAREAE RAR ARR RE REEL RK ARE KEELE 
1861" 007146 ooo00y +8131: SCOPE 
1862 007150 004537 007602 JSR RS, SETVEC GO SET UP INTR RETURN 
1863 007154 007260 13 j RETURN To 1 ON INTR 
1864 007156 012777 177777 172334 MOV #-1, DRVWCR SET UP XFER 
1865 007164 013737 001150 o01S¥2 MOV $TPS, DBUFP SET UP BUFFER ADRS TO PRINTER CSR ADRS 
1866 007172 013777 001150 172322 MOV STPS;aDRVBAR  :SET UP BUPFER ADRS - FROM PRINTER CSR 
1867 007200 106427 O00000 MTPS, 0 ;BLLOW INT 
1868 007204 005077 172316 CLR JDRVDBR ZERO THE Rar 
1869 007210 012777 OO0161 172306 MOV #161,dDRVCSR § ;SET IE, XADI7 & XADI6, & GO 
1870 007216 052777 OO00400 172300 BIS #400; aDRVCSR SET CYCLE 
1871 O072e4 013737 O015e4 01122 MOV DRVCSR,SBDADR SET UP CSR ADRS 
1872 007232 012737 000760 001124 MOV " LD EXPECTED STATUS 
1873 907240 017737 172260 O011e6 MOV JDRVCSR, SBDDAT READ THE CSR 
1874 00724 042777 000100 172250 BIC #100, IDRVCSR sDISAELE IE 
1875 104005 ERROR 5 *NO INTR ON 1 WD XFER FROM XCSR 
ipye Boysen Geetee 1$ Bhp or (SP)+ $60 RESTORE VECTOR FIX STK SINCE NO RTI 
1878 phe Sp peeees 007646 ISR R5, CKSTAT GO CK RETA fue 
1879 007266 O00760 760 :CSR EXBECTED STATUS 
1880 007270 000001 1 :# OF XF 
1881 007272 104007 ERROR 7 ‘RETURN HERE IF STATUS ER - EXPECTED CYCLE, 
1882 *XADI17 & XADI6, ROY & IE 
| 1883 007274 go04e5 BR 2s :GO STORE VECTOR 
1884 007276 104010 ERROR 10 "RETURN HERE IF WC ER - EXPECTED O 
1885 007300 900423 BR 2g GO RESTORE VECTOR 
1886 007302 104011 ERROR 11 RETURN HERE IF BAR ER -. SHOULD = XCSR+2 
1887 000421 BR 2 GO RESTORE VECT 
| 1888 007306 017737 171636 001124 MOV JSTPS,SGDDAT = ;RETURN HERE IF OK - GET XCSR CONTENTS 
| 1889 007314 017737 172208 001126 MOV DORVDBR, SBDDAT READ DBR 
| 1890 007322 023737 OOlie4 001126 CMP SGDDAT,$BDDAT  ;CORRECT? 
1891 007330 01407 BEQ *BR IF SO 
| 1892 007332 013737 001526 001122 MOV DRVDBR,SBDADR ;SET UP DBR ADRS 
| 4893 007340 013737 001150 001120 MOV $TPS, SGDADR “GET ADRS OF DATA (XCSR) 
1894 007346 104020 ERROR 20 ‘DATA ER FROM TTY PRINTER CSR 
1895 007 012737 014476 OOISH2 2S: MOV bev DBUFP *RESTORE BUFFER RORS TO LOWEST 4K 
| 189% 097356 004737 007622 JSR RSTVEC GO RESTORE VECTO 
! 
| 
| 


ee 
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TEST THE ADDRESS (1/0) ABILITY TO THE TTY PRINTER CSR 


007’ 
007454 000137 


0.0.0 .0.0 0.0.0.0 08 wo 
ee he fs fs pe fe fo Fe Fe Fe 
WONT UCWM-Ow oF 


RESRS 


ages 
Sg939 
2a58 


DDD DDOODDDDODOOODO DODD 
a 


fs 
g 
y, 
Oo 


SERBS 


DVDRAA.P11 
1899 
1300 
130s Qovged O04 
13 BOrsee 006037 
1904 007372 001432 
1905 007374 962737 
| 


1942 004710 
1943 
1945 
1946 
1947 

8 002006 
1949 #4 


REP 


001536 
000010 


000001 
002330 


377 
042412 
051501 


001520 


001532 
001536 


001202 


oc0 
042116 
020123 


;DON’T REPORT "END OF PASS’ UNTIL ALL SELECTED ORV11’S HAVE BEEN TESTED 
5 SHEER RE RRR REE RIERA EARTHS TATTLE RATER 


NXDEV: SC 
NYDEVi: CLC CLR CARRY 
ROR DMAP LOOK FOR NEXT 
BEQ SEOP -BR IF ALL TESTED 
ADD #10, DRVWCR : OFFSET BASE BUS ADRS TO NEXT DRV1IB 
ADD #10, ORVBAR : 
ADD #10, DRVCSR : 
ADD #10; DRVOBR : 
ADD #4, DRVCTO ;OFFSET VECTOR ADRS TO NEXT 
ADD #4’ DRVCT2 
INC SUNIT COUNT DEVICE 


BIT #1, OMAP 15 IT SELECTED? 
;BR_IF NOT 


JMP RESTRT : TEST NEXT 
.SBTTL END OF PASS ROUTINE 


jeanesneuacungsesseeeseerndyeseasseaneanennaneneeenseen= == 
; KINCRENENT he on NUMBER (SPASS) 
YPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
air THERES A MONT TOR GO 10 I 
;#IF THERE ISN’T JUMP TO START 


SEOP: wp 
CLR STSTNM ;;ZERO THE TEST NUMBER 
CLR STIMES :2ERO THE NUMBER OF ITERATIONS 
INC SPASS 3s INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ;;DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ : + LOOP? 
SEOPCT: .WORD 
BGT SDOAGN : YES 
: MOV (PC)+,a(PC)+  $;RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
PE SENDMG js TYPE “END PASS # 
MOV $PASS, -(SP) };SAVE SPASS FOR T YPEOUT 
TYPDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 
TYPE SENULL :: TYPE A NULL CHARACTER 
SGET42: MOV a#d2, RO ::GET MONITOR ADDRESS 
B $DOAGN : BRANCH IF NO MONITOR 
RESET ::CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 260 TO MONITOR 
NOP : SAVE ROOM 
NOP ;;FOR 
NOP ssACTII 
SDOAGN: 
MP a(PC)+ ; RETURN 
SRTNAD: .WORD START! | 
SENULL: .BYTE *NULL CHARACTER STRING 


SENOMG: .ASCIZ testo, eno pase’ 47 
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SETTL PROGRAM SUBROUTINES 


RERSRSSKSFESSSSSFSLSSSSRESHLASELSRESSSSLESSSERSSESASSSSSSSE LESSEE 
tus ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT - 

TS UP THE DRVIIB INTERRUPT TO RETURN ON INTERRUPT 
[70 THE ADDRESS TNBICATED ((RS)) BY THE CALL +2 
sPESLESESLS REEF LS ELF RERSL ESS H SELES ERELLLFSESSERESSEE SEP Hee eH ees 


oo0200 detec: MT MTPS, 200 :SET UP FOR NO INTERRUPT 
171716 MOV (RS)+, 9DRVCTO  :SET UP INTR RETURN ADRS 
000200 171712 Hoy #200, 2ORVCTe kote PRIORITY LEVEL AT TOP ON INTR 


: iNIe ROUTINE CLEARS THE DRVIIB COR © RESTORES THE ORVIIB 
i THIS ROUTINE CLEARS THE DRV11B CSR - RESTORES THE DRVIIB 


iI BE BaNAEAHOEEEEASEASEHOEHL SHEE HEEEEEEESUEABEESEEESAEEAEEESE HOES 


171676 RéTVEC: CLR BORVCSR CLR STATUS 8 CONTROL 

901532 171674 MOV DRVCT2, BDRVCTO : POINT VECTOR TO HALT 

171672 CLR QDRVCTE SET 

oco209 MTPS, 200 :RAISE PRIORITY LEVEL 
RTS 8C EXIT 


. THIS ROUTINE CHECKS ON ALL OATA TRANSFERS FOR: CORRECT STATUS, 
CORRECT Gonnecy BUFTER FER RODRESS ‘THe EXPECTED Data Is 
‘Slerciep In, Te GAL +4 = THE RETURN IS TO +22 I ERRORS 


IF AN ERROR” 18 DETECTED THE RETURN IS TO THE APPROPRIATE ERROR EMT 
A HHEHHHHHHEHHHHHHHHEHHEHHEHHHHHEEHHHHHHEHHHHBGHHHHBHHHHEHHHEEE 


171652 001126 i STAT: MOV § @ORVCSR,SBODAT ;READ THE STATUS 
Oocid6 i7ib4e BIC 8100, 00RVCSR § ;DISABLE THe IE BIT 
001124 MOV (RS)$,$GODAT SET UP EXPECTED STATUS 
001124 001126 CMP S$GDDAT,SBDDAT  ;CORRECT? 

BEG 1$ :BR IF SO 
001524 001122 MOV DRVCSR,SBDADR ;SET UP C S 
000002 ADD #2,R5 POINT TO CSR 

RTS Rs “EXIT HERE ON STATUS ERROR 
171602 001126 1S: MOV DORVWCR,SBDDAT ;GET WC 

BEQ :BR IF ZERO 
001520 001122 MOV DRVWCR,SBDADR SET UP WCR ADRS 
001124 CLR SGDDAT “EXPECTED 0 
000006 ADD ,RS :POINT TO THE WCR ER 

RTS “EXIT HERE ON WCR ER 
091124 2s: MOV (RS), SGDDAT ‘GET XFER 8 
001124 ASL SGODAT i CONVERT TO WORD 
001542 001124 ADD DBUFP T sPOIN NT TO LAST XFER +2 
171536 O0il26 MOV SBDDAT ;GE 
000001 001126 BIC 4B TO0, $8008 DON’T WANT BITOO 
DOlle4 001126 CMP Hatt: : * CORRECT? 

BEQ *BR IF SO 
001522 O01122 MOV : *SET UP BAR ADRS 

le AND #12,R5 POINT TO ER 

RTS RS ‘EXIT HERE ON BAR ER 

000016 3S: ADD #16,R5 ALL OK - POINT TO GOOD EXIT 


a nn ne ee +) 
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DVDRAA.PL1 PROGRAM SUSROUT! 
2007 010024 900205 RIS RS sEXIT HERE IF NO ERRORS 
2003 bute ROUTINE LOADS "DRUF’ WITH A FLOATING ZERO/ONE PATTERN 
2910 S4urs ROUTINE LOADS 'DBUF’ WITH A FLOATING ZERO/ONE PATT 
2011 ;FOR 199 LOCATIONS - THE LAST Locar fon Ri LOBDED ul ITH He 
2012 :870707 WHICH SHOULD BE THE DATA WORD AVAILABLE IN THE DSR 
2913 AT THE COMPLETION OF A 200 WORD TRANSFER 
2014 Meir eer eee 
201S 01002 012703 o14476 (OsuF: MOV ;GET BUFFER ADRS 
2016 O10032 912754 177776 i$: V Tega RY -SET UP FLOATING ZERO PATRN 
2017 910035 010423 2s: MC’v R3)4 ‘LOAD IT (FLOATING 0) 
2018 O10040 005104 COM :MAKE INTO FLOATING : 
2018 O10042 022703 015314 CMP OS -AT END OF BUFFER? 
2020 010046 001003 4 ‘BR IF NOT 
2021 O1 012713 070707 3S: MOY #70707, (R3) ‘LOAD LAST DATVAR (SPECIAL? 
2022 010054 000207 | RTS PC :GET OUT 
2023 010056 010423 4$: MOV RY, (R3)+ *LOAD IT (FLOATING 1) 
2024 Ol 022703 015214 SOBUF+616.R3 AT END OF BUFFER? 
2025 010064 001771 BEQ 3$ -BR IF SO 
202% 010066 005:04 ¢ RY :BACK TO FLOATING ZERO 
010070 006304 ASL RY ‘SHIFT LEFT 
2028 010072 O0S204 INC RY :KEEP LSB SET 
2029 010074 1033Sé Bcc is :GO RESE FLOATING PATRN 
e530 010076 000767 BR 2s :GO LOAD NEXT PA 
e032 iNTs ROUTINE LOADS OBUF’ WITH A UNIQUE F. SHEELELELEESEEAHERSLL GS 
2033 TIS Teadateo Ne * OBUF’ WITH A A UNIQ FLOAT! ING Goro. ge, PATTERN 
ore nt 1S bas al Int is bet + tat ATO. CeOueNeE oe - Locs 
2036 "ARE LOADED W TTERN 
2037 F pn SL ns Dip EE: EERIE, S. 
2038 919100 013703 oo1S¥e (OBUFI: MOV i :GET RORS 
2039 Oi0104 O1 MOV R3,RS :SAVE IN RS 
2040 010106 000620 ADD 8620, RS :POINT TO END OF BUFFER 
2041 010112 012704 177776 1$: MOV 8177776, RY :SET UP FLOATING ZERO PATRN 
2042 610116 O-0ie3 2$: MOV RY, (R3)4 sL IT (FLOATI 
2043 101 CLR (R3)+ ZERO NEXT 
see iis tiple oy Ecnye eta OT 
2046 Biot CLR (R3)+ ‘OE RO NEXT 
2047 019130 CMP RS,R3 *200 LOCS DONE? 
2548 101 1001 BNE 3$ :BR IF NOT 
oreg ure neath 38 COR RS Fe FLOATING ZERO 
2051 stated Boe aM ASL RY OeT LEFT 
oe 010142 o0S204 INC RY : LSB SET 
010144 103362 BCC 1$ -GO RESET FLOAT NG PATRN 
2054 010146 000763 BR 2s GO FLOAT NEXT PATRN 
cOSE HHIS ROUTINE CHECKS 200 LOCATIONS IN “DBUF™ FOR GOOD TRANSFERED 
2057 a, ROUT CHECKS 3500, LOCATIONS IN TDeue™ FOR GOOD TRANSFERED 
2058 ) ON ’DATO’ TRANSFE I ERROR 18 OE TECTED 


it HE RETURN IS TO CALL +2 - IF NO ERROR THE RETURN IS TO CALL +4 
PEPE SPPRSSSEE PAS SSEAEERSERERSEEEREDSEEEEAESEEREREREEEEER SEEDERS 


mY 


+— »— 6— b= 0-- 6 — 0 p — p-- & - a 


BS 


OND NOOOHOOOOOOOVOHOV0O00000 


20-2 + b= bb bh b= b= + = B= = b= = ah he 


- 


SCRE TERR CECE it 


tururoru 
St 


SRB 
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“DVDRA-A DRVIIS DMA INTERFACE DIAGNOST MACYLI 27(665) i1-CCT-76 15:39 PACE 42 
PROGRAM SUBROUTINES 

0150 012701 O14476 CKOAT: MUV sOBUF RI GET BUFFER @ORS 

0154 O2e721 177377 is: CMP 8177377, (R1)+ DATA OK? 

9162 00 : BEQ 2g ‘BR IF SO 

pigs otaia? elise ee MOV “LS shar 'GET RETORY DATA XFERED 

Bt sta 61120 MOV gens GT MEMORY ADRS 

0200 900207 TS ‘RETURN TO ERROR 

Q202 O22701 O15316 23: CMP BBUF +620, Rl :@T END OF "DBUF’? 

D208 OC 3b¢ SNE 1! !BR IF MORE 

Oe10 O8e716 oD0000e2 ADD #2, (SP) ‘ADJUST STACK FOR GOOD RETURN 

0214 900207 RTS PC :GET OUT 
SSTERLEAKRSSRSKKEARAKLLREEAFEARELLLSRESAEASRAEFREKLSRAAALESAERLLARE 


33 


:$HIS ROUTINE CHECK 200 LOCATIONS IN DBUF’ 


: N 
;BY THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS 14 CALL 
; IF NO ERROR THE RETURN IS TO CALL +10 
5-4 inini-trlalableiai}-+-4trig-+-telaleelaieieeled-+->-ih-iel-+-nh-17°-5-t7}-llelelalelaiaielleleieielelei 








0216 012500 AXOATI: MOV (RS)+,RO ;GET # OF CHECKS 
0220 013702 901542 MOV Re ‘GET BUFFER 
0224 012701 177776 1S: MOV 8177776, Ri :SET UP FLOATING ZERO PATRN 
0230 3 CLR R3 ;R3_ SAYS WHEN TO SHIFT PATRN 
Ce32 lee es: CMP R1, (R2)+ sDATA OK? 
N34 001010 BNE 3$ :BR IF NOT 
ce6 122 CMP R1, (R2)+ ‘DATA WRITTEN OK? 

1006 3$ ‘BR IF NOT 
Qev2 162700 00002 Sus #2,R0 :ACCOUNT FOR TWO ADRS'S 
Oe%6 003015 BGT 4§ :BR IF MORE 
0250 062705 000004 ADD 84, RS ‘ADJUST FOR GOOD RETURN 
0254 RTS RS EXIT 
0256 014237 001126 38: MOV -(R2),$BDDAT  :GET BAD DATA 
Oeb2 010237 001120 MOV Re, -GET MEM ADRS 
0266 19137 005124 R1, $GDDAT :LD EXPECTED DATA 

13737 O01S26 001122 MOV DRVDBR,SBDADR :SET UP DBR ADRS 
0300 0020S RTS 8S ‘RETURN TO ERROR 
0302 005101 4$: COM RI ‘NOW EXPECT COMPLEMENT 
0304 005103 COM R3 - TIME TO SHIFT? 
0306 001351 BNE 2 :BR IF NOT 
0310 006301 ASL Ri} ‘SHIFT LEFT 
9312 905201 INC R! :KEEP LSB SET 
0314 193343 Bcc 1$ :GO RESET FLOATING PATRN 
0316 000745 BR 2s :DO NEXT 





me ee. 





ee 


04 
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DVDRAR. PLL SYSMAC ROUTINES 





2104 .SBTTL SYSMAC ROUTINES 
2108 .SETTL TYPE ROUTINE 
ra 

2108 5p RERASRERREA EARS RAAAELESLARA LEAS ASL ALLAAAAAAAS EE RAAALKALALAFAAGE 

21093 : ¥ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
2110 :#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINe FEED. 
ell) #NOTEL: SNULL CONTAINS THE CHARACTER 19 BE USED AS THE FILLER CHARACTER. 
2112 : #NOTES: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
gi13 : NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

. 

e115 #CALL: 

2116 'ei) USING @ TRAP INSTRUCTION 
th it TYPE , MESADR ::MESADR IS FIRST AODRESS OF AN ASCIZ STRING 
e1lg ;% TYPE 
2120 :# MESADR 
5153 “ 
2123 919320 105737 001157 STYPE: TSTB $TPFLG ::IS THERE A TERMINAL? 

21-4 910304 | BPL 1$ ;3BR IF 
eles 010326 po00c00 HALT ::HALT HERE IF NO TERMINAL 
S153 Bibs pete 1s: ov RO, -(SP) He 
2128 O10394 017600 op0092 MOV d2tsP) RO 7 afORESS aff ASCIZ STRING 
2129 O1094%0 122737 000001 001214 CMPB ss BAPTENY, SENV OSI oR wet 
2130 010346 00101 BNE 625 CK FOR 1 CONSOLE 
2131 Ol exis 000100 001215 BITB § sAPTSPOOL,SENVM : 
18 EES BEG pias a eae 
S14 Ol 01061 : BC’ SAtY3 33 3 70 eet 
2135 010370 o00000 1S: -WORD O *: MESSAGE ADDRESS 
2136 010372 132737 OO0040 CO121S 62$:  BITB sAPTCSUP,SENVM ::APT CONSOLE SSED 
2137 O10400 001003 BNE 60S :: YES, SKIP oy 
2138 O10N02 112046 2 MOVB  (RO)+,-(SP) ; PUSH CHARAC 0 BE TYPED ONTO STACK 
2139 D104Os 1005 BNE 4§ ::BR IF IT ISN'T THE TERMINATOR 

2140 O10406 eae TST (SP)+ ‘ide. INATOR POP IT OFF THE STACK 
sie Bios BSE ome = YAIR tu 
A a a 
Stic pte ates BEQ BS a4 

he O10eb 122716 000200 CMPB ss #CRLF’, (SP) ;;BRANCH IF NOT <CRLF> 

te teed read Pot (SP)+ ;;POP <CR><LF> EQUIV 

2149 O10436 104400 T *::TYPE A CR AND LF 

2150 Ol 001171 SCRLF 

ei5l 1 105037 010576 CLR8 § SCHARCNT ;CLEAR CHARACTER COUNT 

1 i BR ::GET NEXT CHARACTER 

2153 GI1O4SO 004737 010532 S$: JSR PC, $TYPEC ::G0 TYPE THIS CHARACT ER 

2154 O104S4 123726 001156 6$: CMPB =s-s«SFILLC,(SP)+ 3:18 IT TIME FOR FILLER CHARS. ? 

2155 010460 001350 BNE >: IF NO GO GET NEXT CHAR. 

2156 O10462 01374 001154 MOV $NULL , - (SP) ::GET # OF FILLER Ct CHARS. NEEDED 

2157 ;;AND THE NULL 


eee 
3 
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TYPE ROUTINE 
pucs PNSIEE seaoe: 7S: neca 1(S8) HB Qa NULL NEEN Ta Qe TYPED? 
0472 002776 BLT b$ ::BR IF No--G0 POP THE NULL OFF OF STACK 
9474 004737 010532 JSR pc STYPEC $360 TYPE A NULL 
0500 105337 910576 DECB SCHARCN -:D0 NOT COUNT AS A COUNT 
Of04% 9000770 BR ;;LOOP 
sHORIZCNTAL TAB PROCESSOR 

0506 112716 o00040 83: MOVB = &’_—«, (SP) ;s REPLACE TAB WITH SPACE 
512 004737 010532 9S: JSR Pc, $TYPEC i TYPE 
0516 132737 000007 o10576 BITB 87, SCHARCNT ; BR BicH F NOT AT 
0S24 001372 SNE TOP 
O52 05726 TST (SP)+ : POP SPACE OFF STACK 

BR 2s XT CHARAC 
0532 170412 STYPEC: TSTB aSTPS :WAIT UNTIL PRINTER IS READY 
0536 100375 BPL STYPEC 
0540 116677 O00002 170404 MOVB  2(SP),a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
O54 1 000015 oo0092 CMPB sa, 2 SP) +: 1S CHARACTER A CARRIAGE RETURN? 
0554 001003 BNE 1$ $s GRAN F 
0556 105037 010576 CLRB  $CHARCNT YES--CLEAR CHARACTER COUNT 
OS62 000406 BR STYPEX 
0564 122766 o00012 oonoo2 1S: CMPB ss LFF, O( SP) Be CHARACTER A LINE FEED? 
0572 001402 BEQ STYPEX “BRANCH IF YES 
0S74 105227 INCE — (PC) + COUNT THE CHARACTER 
9576 090090 SCHARCNT: .WORD 0 :: CHARACTER COUNT STORAGE 
0600 000207 STYPEX: RTS PC 

.SBTTL APT COMMUNICATIONS ROUTINE 
XEHEEERESEREEREELE RAFAEL KEELE E LALLA REESE RE KLE LEE REL SL HESS SLEEK ESE 

O602 112737 OO00001 011046 gar Tyas MOVB &1,SFFLG :;TO REPORT FATAL ERROR 
06i0 112737 000001 O11044 MOVB #1 SMFLG ::T0 TYPE A MESSAGE 
0616 000403 BR gatyc 
0620 112737 000001 011046 wre MOVE &1,SFFLG :;TO ONLY REPORT FATAL ERROR 
bese 010046 MOV RO, -(SP) ;;PUSH RO ON STACK 
0630 010146 R1’-(5P) ; ;PUSH RI ON STACK 
0632 105737 011044 TSTB = SMFLG ‘SHOULD TYPE A MESSAGE? 
0636 001450 S$ *:1F NOT: BR 
0640 122737 000001 001214 CMPB = BAPTENV,SENV =; ;OPERATING UNDER APT? 
0646 901031 3$ ;31F NOT: BR 
0650 132737 O00100 001215 BITB § sAPTSPOOL.SENVM ;;SHOULD SPOOL MESSAGES? 
0656 001425 BEQ 3$ :: IF NOT: 
0660 017600 oo0004 MOV a4(SP) RO ::GET NESSAGE ADDR. 
0664 062766 000002 o00004 ADD #2, 4(SP ;;BUMP RETURN ADDR. 
0672 005737 001174 ser: TST = SMSGTYPE ;;SEE IF OONE W/ LAST XMISSION? : 
0676 nytt BNE 1$ ;;IF NOT: WAIT : 
0700 01 001210 MOV RO, SMSGAD -:PUT IN MAILBOX 
0704 23: TSTB 3s (RO) + :: FIND OF MES 
OD ; 001210 at SASGAD RO STAR 
0714 heer ASR RO i eue ae CeAGe LNGT une Rn an IN WORDS 
0716 010037 ool1212 MOV RO, SMSGLGT BUT tERCTA IN MAILBOX 
0722 012737 OO0004 001174 MOV #4, SMSGTYPE TELL APT TO TAKE MSG. 
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DVDRAA. Pil APT COMMUNICATIONS ROUTINE 
sig ie ye oC Q107S6 3 By 345) 4§ “PUT MSG ADDR IN JSR LINKAGE 
f v3: ! $5 Au 
j 14 ot 536 nae Bopaae 600004 ADD 4(SP) -BUMP RETU DRESS 
2215 O1074%6 O1374E 177776 MOV 1Saee -(SP) - » PUSH 155776 ON a Tark 
2216 010752 004737 010320 JSR Po, $TYPE CALL TYPE MACRO 
2217 010755 000000 4$: .WORD =O 
2218 010760 S$: 
2219 o19760 108737 011046 10$: STB S$FFLG :;SHOULD REPORT FATAL ERROR? 
eee) 010764 OO141s BEQ 12$ :: IF NOT: BR 
2221 010766 005737 001214 TST SENV ;;RUNNING UNDER APT? 
eee2 010772 001413 BEQ 12$ 
2223 010774 005737 001174 11$: TST SMSGTYPE : FINISHED LAST MESSAGE? 
2224 011000 001375 SNE IF NOT: WAIT 
2225 011002 017637 O00004 001176 MOY D4(SP),SFATAL  ::GET Re 
2228 011010 O62766 O000002 cOc004 ADD #2,4(SP) RETURN ADDR. 
eee? 011016 005237 001174 INC snaGTYPE’ ;; TELL abit TO TAKE ERROR 
2228 011022 1 011046 123: CLRB  $FFLGS ~ CLEAR FATAL FLAG 
2229 011025 1 011045 ' CLRB = SLFLG ::CLEAR LOG FLAG 
' 2230 O11G32 1 911044 CLRB = SMFLG 33CL 
2231 011036 012601 MOV (SP)+,R1 :POP STACK INTO R1 
2232 O11040 012600 MOV (SP)+'RO : PoP STACK INTO RO 
2233 O11042 000207 RTS PC :RET 
2234 011044 oo0 SMFLG: .BYTE O- . ; ;MESSG. FLAG 
| 2235 O1104S oco SLFLG: .BYTE OQ 3;L0G PFLAG 
| 2236 O110468- 000 SFFLG: .BYTE OG ::FATAL FLAG 
| p23? 0110950 i : 
| 2238 990200 APTSIZE=200 
2239 000901 APTENV=001 Ee J , 
000190 RPTSPOOL= 100 ( aA 
| BML, _  gooayo - RB TCSUP=040 
q coe : BINARY TO OCTAL (ASCII) AND TYPE 
2244 , UEHEHEB RAB HEHE HEHEHE HEHEHE HEE EHH HEEB HEE EE 
2e4S 'ETHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
2246 ?#OCTAL (ASCII) NUMBER AND TYPE IT. 
a s #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
24S # mov NUM, -(SP) ;NUMBER TO BE TYPED 
2250 :# YPOS Pt CALL FOR TYPEOUT 
2251 te aba N ; ::N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
eese i .BYT M : ;;M=1 OR O 
: Bea ie e ;1=TYPE LEADING ZEROS 
254 S i ’ ::Q=SUPPRESS LEADING ZEROS 
2256 agTYPoW-<—-ENTER HERE To TYPE OUT WITH a, SAME PARAMETERS AS. THE LAST 
2257 ;#STYPOS OR STYPOC : 
- 2258 — s#CALL: : - 
gerd ir MOV NUM, ~(SP) “+; NUMBER 70 BE TYPED 
ects , ; if TYPON - *:CALL FOR TYPEOUT 
ecbe eon HERE FOR TYPEOUT OF -A,16 BIT NUMBER 
Sse i MOV -(SP) ;;NUMBER TO 'BE TYPED 
2265 * TYPOC © *:CALL FOR TYPEOUT 
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Pal 4 
| DVYDRAA BINARY TO OCTAL (ASCII) AND TYPE ~- 
2266 IF w.. . 
2e67 011050 017646 000000 ~  — “$TYPOS: MOV 3(SP),-(SP) PICKUP THE MODE 
2268 011054 116637 000001 011273 MOVE 1(5P),$0FILL ;;LOAD ZERO FILL SWITCH 
- 2269 311962 12637 011275 MOVB  (SP)+.S$OMODE+1 ::NUMBER OF DIGITS TO TYPE. 
e270 O11065 716 at ADD #2, (SP) ‘: ADJUST RETURN ADDRESS 
2271 O11072 OOO406 * ; BR STYPON 
| 2e72 O11074 112737 000001 011273. STYPOC: MOVB #81,S$OFILL +;SET THE ZERO FILL SWITCH 
2273 011102 112737 OO00006 Olle75 -: MOVE #6, SOMODE+1 *:SET FOR SIX(6) DIGITS 
| 2274 O11L10 11e737 O0000S 011272 $TYFON: MOVB #5, S0CNT ::SET THE ITERATION COUNT 
2275 OLLIE OL034%6 ict MOV R3,-(SP) :SAVE RS 
| 2276 011120 O10446 MOV RY’ =(SP) - SAVE RY 
. pe7? Ollle2 O10S46 MOV RS; -(SP) ::SAVE_RS 
2278 011124 113704 011275 MOVB $OMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
2279 011130 OOS4O4 NEG RY 
2280 011132 O62704 oD0006 ADD #6, R4 :; SUBTRACT IT FOR MAX. ALLOWED 
2281 011136 110437 011274 MOVB RY" SOMODE ::SAVE IT FOR USE 
2282 O11142 113704 011273 MOVB  $OFILL,RY ::GET THE ZERO FILL SWITCH 
2283 011146 O1660S O000l2 MOV 12(SP);RS ::PICKUP THE INPUT NUMBER 
| 2984 011152 095003 CLR R3 ::CLEAR THE OUTPUT WORD 
2285 011154 006105 1$: ROL RS *:ROTATE MSB INTO “C™ 
2286 O11156 OOO404 BR 33 ::GO DO MSB 
2287 O11160 006:05 23: ROL RS ‘FORM THIS DIGIT 
2288 Olllée 006105 ROL RE 
~ 2289 O11164 006105 ROL RS 
; 2290 O11166 010503 MOV RS,R3 
' 2291 O11170 006103 2S: ROL R3 ::GET LSB OF THIS DIGIT 
| 2292 011172 105337 011274 DECB  $OMODE :: TYPE THIS DIGIT? 
| 2293 011176 100016 BPL 7§ -:BR IF NO 
/ p29 911200 042703 177770 BIC #177770,83 :GET RID OF JUNK 
| 2295S O11204 oologe BNE 4§ :: TEST FOR O 
| 22% 011206 005704 TST RY :: SUPPRESS THIS 0? 
| 2297 O11210 001403 BEQ $ ::BR IF YES 
| 2298 Qilele O05204 4S: INC RY ::DON’T SUPPRESS ANYMORE 0°S 
| pe99 011214 052703 o00060 BIS #’0,R3 ::MAKE THIS DIGIT ASCII 
| 2300 Ol1220 052703 40 S$ BIS 8’ 'R3 ::MAKE ASCII IF NOT ALREADY 
, 2301 011224 110337 011270 MOVB R3, 8S >: SAVE FOR TYPING 
Be Ee ee RHE? rs, PUT 
i @ abe nicer BGT 2g :?BR tr HORE TO DO 
2305 Olle4¥2 o0e40e2 BLT 6$ ::BR IF DONE 
2306 Olid bos204 INC RY a; INSURE LAST DIGIT ISN’T A BLANK 
| e307 O11e%6 BR 2$ -:GO DO THE LAST DIGIT 
2308 011250 012605 6S: MOV (SP)+,R5 ;:RESTORE RS 
2309 O11252 012604 MOV (SP)+;R4 RESTORE RY 
2310 011254 012603 MOV (SP)+°R3 ::RESTORE R3 
2311 011256 O16666 o00002 ojD0004 MOV 2(SP),4(SP) SET THE STACK FOR RETURNING 
2312 O1le64 012616 MOV (SP)+' (SP) 
2313 Ollebs o00002 RTI ; ;RETURN 
2314 11270 009 8$ .BYTE 0 :;STORAGE FOR ASCII DIGIT 
2315 011271 000 BYTE 0 -: TERMINATOR FOR TYPE ROUTINE 
' 2316 011272 000 NT: ByT 0 -:OCTAL DIGIT COUNTER 
2317 011273 000 SOFILL: .BYTE 0 *:ZERO FILL SWITCH 
2218 011274 ooc0d0 SOMODE: .WORD 0 -:NUMBER OF DIGITS TO TYPE 
2319 “SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 
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_ DVDRAA.P 1 
2320 
2321 
e3ce 
2323 
2324 
2325 
2326 
e327 
2328 
gsce 
A 
533) Bi 1276 
2332 Olle7b 
2333 011300. 
2334 011302 
2335 011304 
2336 011306 
2337 011310 
2338 011314 
2339 011320 
2340" Bit sce 
2me Ol1sse 
g Slee 
Baus Gilg 
ta] es 
Saye 11384 
2349 011356 
2350 the 
235) O11 
23Se 011364™ 
_ 2353 011366 
2354 011370. 
2355 011372 
2356 011374 
2357 011376 
S363 Lube 
2360 Biinis 
2361 ~ 011416 
ex 11420 
tise 
2264= 011425 
2365 011430 
537 Giluss 
11434 
2368 0114 
5373 Ol 
11 
FEL OL Lass 
375_bi1aes 
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- MACYL1 27(665) 


Ra a At REE re hae 

CHANGE A ip ar! BINARY NUMBER TO A S-DIGIT 
NUMBER met YPE IT. DEPENDING ON WHETHER THE 
TIV NEGATIVE A SPACE OR'A MINUS SIGN WILL BE TYPED 
: sSEF ORE THE PrRSt DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
is teed WITH SPACES. 


i aTHIS ROUTINE IS USED T 
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;;PUT_THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 


BLANK ITCH ea SIGN 
HE INPUT. NUMBE 


1 § 
IF_INPUT IS "pose 
BINARY NUMBER POS. 
* ASCII 


ae oo 


a 


ow 


POINTER 
F 1 epee te TO" A BLANK 


fayeen 


CONSTANT~ 
IS BCD DIGIT 
NCREASE THE BCD DIGIT BY 1 


K THE CONSTANT 
CK_IF BCD DIGIT=0 


OUGH IF 0 
NG LEADING 0°S? 


a 
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age 38 


WnNnoO 
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cir ASCII 
A-SPACE_IF NOT ALREADY & DIGIT 
S ere THE OUTPUT BUFFER 


ee EE eeEEEOe 
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DVDRAA.P CONVERT BINARY TO DECIMAL ANC TYPE ROUTINE 
ee 11 456 912602 MOV (SP)+,R2 »:POP STACK INTO R2 
75. O11 MOV (SP)+'RI ;}POP STACK INTO RI 
Bthes SREP pusse Ee a ee 
a Bite bieeee Bb BA oocoo4 MOV (SP), 4(SP) ! :ADJUST Fue STACK 
2379 O11476 012616 MOV (SP)+' (SP) 
2380 011500 900002 RTI ;;RETURN TO USER 
2381 11500 023420 $OTBL: 10000. Dahl 
2382 011504 001750 1000. 
~ 2383 011508 900144 100. 
2384 011510 o0001e 10. 
2385 611512 o00004 SDBLK: .BLKW 4 
es8 .SBTTL ERROR HANDLER ROUTINE 
2388 : » SFREREKEREALRARAAEEEKRRL ERA LEA ELLE REA AAA EAS AL LALA AREAS SELES SE 
2389 aT THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
a 3330 s #SAVE cgite oeRR RROR ITEM TEN NUMBER AND THE ADDRESS OF THE ERROR CALL 
eae j#THE_SHITCH OPTION PROVIDED BY THIS ROUTINE ARE: . 
2394 eeui3=1 INHIBIT ERROR TYPEOUTS 
2395 = :#5W10=1 BELL ON ERROR 
23% : #5WO9=1 COOP ON ERROR 
2397 :¥CALL 
2398 # ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
oa00 011522 SERROR: 
2401 011522 104406 CKSUR -TEST FOR CHANGE IN “SOF T-SWR 
2402" 911524 104406 CKSWR 360 LOOK’ ‘ROR SWR CHANGE 
2403 011526 10s237 001103 7$ INCB  SERFLG 53967 THE ERROR FLAG 
2404 011532 001 BEG ? ::DON’T LET THE FLAG GO TO ZERO 
“P40S 011534 013777 001102 167400 STSTNM, DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
2406 O11542 036777 187370 BIT #B1T10, aSWR i;BELL ON ERROR? 
2407 O11 1402 BEQ "NO - SKIP . - 
2408 011552 104400 001164 TYPE LL j RING | BELL 
gi03 011555 005237 00111 1S: INC RTT 3 COUNT THE NUMBER OF ERRORS 
10 O11 Oil 00111 MOV (SP), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
2411 011566 162737 OO00002 001116 SUB #2, SERRPC 
Suis pt ieoe foes feeado BOVE SSFRRPC, SITENG my maitre = 
2414 011610 901004 BNE 20s :: SKIP TYPEOUTS 
tis Otel? oon a 011712 ISR PC, SWRCK ::G0 TO USER ERROR ROUTINE 
tig 1161 i 001171 as TYPE  ,SCRLF 
ig Lees 000001 001214 “« (MPB ss WAPTENV,SENV —s; ; RUNNT MODE 
sui Bit yt BNE 3 3NO aie BER ERROR REPORT 
2429 011632 113737 001114 011644 MOVB  S$ITEMB,21$ et tT ITEM NUMBER AS ERROR NUMBER 
eel Bibs 0047 Pay JR PC, SATYS : REPORT FATAL ERROR TO APT 
S454 DLiENe 900777 we /APT ERROR LOOP 
Suse Biigey iooos 1° ee se: GT HALT ON ERROR 
2427 011656 00000 HALT 
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Pll ERROR HANDLER ROUTINE 

2428 011660 104406 CKSWR +: TEST FOR CHANGE IN SOFT-SWR 
2429 O1l662 032777 001000 167250 3%: BIT #B1T09, aSWR ;;LOOP_ON ERROR SWITCH SET? 
2430 011670 001402 BEQ 4g F NO 

31 blibze D171 0011: 2 MOV SLPERR, (SP) tt FUDGE RETURN FOR LOOPING 

32 O11E76 0811 4g: TST SESCAPE ; CHECK FOR AN ESCAPE ADDRESS 
2433 011702 001402 BEQ cS *BR IF NONE 
2434 011704 913716 001162 MOV SESCAPE, (SP) t FUDGE RETURN ADDRESS FOR ESCAPE 
2435 011710 S$: 
2436 O11719 oooo0e RTI RETURN 
eld ; TA, Rape omwapsineerec eT pe 
2439 O UPDATE SOFTWARE SWR IF ’CNTRL/G’ 
2e44G ie Bo eats Rc thet SE ell lh RTE PITS PER 
2441 011712 113737 001102 O01534 i CK: MOVB STSTNI TSTNUM —; SET He TEST # ON E 
e442 011720 004737 011730 ISR C, SERRTYP -GO TYPE ERROR 
2443 011724 104406 CKSUR :GO LOOK FOR-SWR CHANGE 
e444 011726 000207 RTS PC "RETURN TO ERROR HANDLER 
244s .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
2447 ; piiie ROUTING USES THE “ITEM CONTROL BYTE. (SITEMB) TO DETERMINE 
e448 **THIS ROUTINE USES THE ™ NTROL BYTE (SITEMB) TO DETERMINE WHICH 
244g HERROR 13 TO BE RPpORTED i cont OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 
e50 :#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
2452 011730 emai 
gies 11 1044 001!71 TYPE SCRLF s "CARRIAGE PETURN” & “LINE FEED” 

11 1 MOV RO, -(SP) *:SAVE RO 

2455 011736 CLR ::PICKUP THE ITEM INDEX 
eine 11740 700 001114 BISB. a#SITEMB,RO 

7 011744 601004 BNE 1$ IF ITEM NUMBER i ZERO, JUST 
2458 :: TYPE THE PC OF THE ERROR 
2459 611745 013746 OO01116 MOV SERRPC, -(SP) tt cave SERRPC FOR WYPEOUT 
2460 >: ERROR ADDRESS 
2461 011752 104401 TYPOC 330 TYPE--OCTAL ASCII(ALL DIGITS) 
462 011754 OO0ve5 BI 6 T 
2463 011756 1S: DEC RO : adJUS THE INDEX SO THAT IT WILL 
2464 011760 006300 ASL RO WORK FOR THE ERROR TABLE 
euge Oli7be 006300 ASL RO 

11764 006300 ASL RO 
Sues DLitte bis0e? piedde MOY ORO es, «= EPICKUP “ERROR NE INTER 
2469 pete artis BE 3 i SKIP TYPEOU ic IF NO INTER 
2470 012000 104400 TYPE .3 TYPE THe MESSAGE” 
ei? 012002 609000 2S: .WORD O a 3 MESSAGE” POINTER GOES HERE 
012004 1 001171 TYPE SCRLF >;"CARRIAGE RETURN” & “LINE FEED" 

e173 O1e019 o1eg3” 012020 3S: MOV R04, 4S i ;PICKUP “DATA HEADER™ Bol TER 

75 pieote E He YE THE egaT HEADER” 
24 12020 00000 4g: .WORD O ;;“DATA POINTER GOES HERE 
24 12022 104400 001171 TYPE SCRLF :"CARRI TURN” & “LINE FEED" 
2478 012026 011000 cS: MOV RO), RO :;PICKUP "DATA TABLE” POINTER 
2479 012030 001004 BNE :3G0 T HE DATA 
2480 ~O012032 012600 6S: MOV (SP)+.RO *3RES RO 
2481 012034 104400 001171 TYPE  ,SCRLF *:"CARRIAGE RETURN” & “LINE FEED” 
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DVDRAA 
Sqnee 
By O1soue 
eves 01204 
8? O1S0s0 
4gg 12052 
2489 012056 
2490 012060 
249] 

e4ge 

2493 

2434 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2505 D12064 
2507 012064 
2508 012066 
2509 012070 
2510 912076 
2511 

2512 012100 
2513 

2514 12102 

. 515 Olel06 
2516 Ole114 
2517 012120 
2518 Oleley 
2519 Oleleb 
2520 012130 
2521 012134 
2522 012136 
2523 012136 
2524 012144 
2525 O1el46 
2526 012154 
2527 012156 
2528 Olele2 
2529 012164 
e530 012172 
2531 012174 
2532 Ole202 
2533 012004 
2534 Dleci2 
2535 Oleel4 


ERROR MESSAGE TYPEOUT ROUTINE 


000207 


013046 
104401 
710 


1770 
104400 
000771 


020040 
012064 


012060 
000 


o40C00 


000004 
Oleiecb 
177060" 


000004 


000400 
166766 
001103 
001115 
001000 
001110 
001103 


167042 


oo00c4 


166774 
001102 


001103 
166736 
001106 





* RTS PC ; ;RETURN 
; MOV J(RO)+, -(SP) +s SAVE J(RO)+ FOR TYPEOUT 
TYPOC ;G0 TYPE--OCTAL ASCII(ALL DIGITS) 
TST (RO) tts THERE ANOTHER NUMBER? 
BEQ 63 R IF NO 
TYPE 485 :: TYPE TWO(2) SPACES 
83: -ASCIZ a ~3:TWO(2) SPACES 


.EVEN 
.SBTTL SCOPE HANDLER ROUTINE 


p bensnanenenecentueceetbaeelbsssevesanensseerectensvensssenesene 
:ATHIS ROUTINE CONTROLS THE LOOPI - OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD 3 TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*#AND LOAD THE ERROR FLAG (SERFLG) INTO tg 45% 08> 
jETHE _— allt ovieae BY THIS ROUTINE AR 


; SW1i=1 INHIBIT [FERATIONS 

: *SWO9=1 LOOP ON ERROR 

j #508=1 LOOP ON TEST IN SWR<7:0> 
i SCOPE ; ;SCOPE=10T 
SSCOPE: 


CKSWR ; TEST FOR CHANGE IN SOFT-SWR 
CKSWR G0 LOOK-FOR SWR CHANGE 
1S: BIT #81714, aSWR ; ;LOOP ON PRESENT TEST? 


BNE SOV, 
;tuaeaSTART OF CODE FOR THE XOR tre 
$xTSTR: BR 6$ IF RUNNING ON THE 5XORe TESTER CHANGE 
THIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV J#ERRVEC, -(SP) t cave THE CONTENTS OF THE ERROR VECTOR 

MOV #5$, J#ERRVEC 3 }5ET FOR TIMEOUT, 


TST 3#177060 ME 
MOV (SP)+, JBERRVEC t TRESTORE THE ERROR VECTOR 
BR SSVLAD TO THE S 
SS: CMP (SP)+, (SP)+ PECLEAR STACK AFTER A TIME OUT 
MOV {SP)+, aRERRVEC j |RESTORE ERROR VECTOR 
BR *LOOP ON THE PRESENT TEST 
6S:;#88eHEND OF CODE FOR THE XOR' TESTEReaueS 
BIT #81T08, aSWR $008 On SPEC. TEST? 
CMPB 0s SW, STSTNM 5 30N THE RIGHT TEST? SWR<7:0> 
BEQ SOVER *BR IF YE 
23: TSTB  SERFLG ; HAS AN ERROR OCCURRED? 
BEQ 3$ :BR IF NO 
CPB SERNAX, SERFLG iIMeX, ERRORS FOR THIS TEST OCCURRED? 
BI #B1T09, aSWR Ha) CDoF ON ERROR? 


t + 0 
7$: HOV SLPERR, SLPADR :SET LOOP ADDRESS TO LAST SCOPE 
4g: CLRB = SERFLG ;;ZERO THE ERROR FLAG 





nee ee a a ee 
4 
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DVDRAA.P 


ee BiEEes 


Bee Renee SS 
Oo0O OOOOO00O0O oO 


oo 
w 


| 
| 
i 
1 
} 
} 
} 
i 
| 





SCOPE HANDLER ROUTINE 


OooNis 
77 


17746 
042716 


001160 
004000 
001202 


000176 
166562 


166556 
177600 
000007 
001134 
013073 
013100 
000176 
013111 
166500 


166474 
177600 


166704 


001104 


001104 
001160 


001200 


001140 


000001 


MACY1i 27(665) 


CLR STIMES 
38: BIT #BIT11, 9SWR 

BNE 

TST —« $Pass 

BOO o«1S 

INC  $ICNT 

CMe STIMES, SICNT 
1S: MOV 


#1, SICNT 
MOV SMXCNT, STIMES 


NM 
STSTNM, STESTN 
(SP), SCPADR 
MOV (SP)’ SLPERR 
CLR SESCAPE 


$SVLAD: 


MOVB #1, SERMAX 
SOVER: MOV STSTNti, JDISPLAY 
MOV SLPADR, (SP) 
RTI 
$MXCNT: 200 


2000. 
-SBTTL TTY INPUT ROUTINE 


11-OCT-76 15:39 PAGE Sl 


ss CLEAR THE NUMBER oF ITERATIONS TO MAKE 
;ESCAPE TO THE NEXT TEST 
; j INHIBIT ITERATIONS? 


;BR 
iTIF FIRST PASS OF PROGRAM 
INHIBIT ITERAT Se 
i} INCREMENT ITERATION COU 
HE NUMBER OF ITERATIONS MADE 


fara The TVeRatiOn cOuvTER 


39 TERATIONS 
: COUNT Wiest NU 
;;9ET TEST NUMBER IN APT MAILBOX 


OOP ADDRESS 

rs THE ESCAPE FROM ERROR ADDRESS 
;ONLY ALLOW a AE ERROR ON NEXT TEST 
tS OISPLAY TEST NUMBER 

sc RETURN ADDRESS 


tna. NUMBER OF ITERATIONS 


33 KLARA KAKA LA LAL EL HALE L ELAR HAA ALLA KAHL REA HK AE RAHA LRA HLA LLALEEKE 
"ENABL LSB 
; © KEKKEZLL LKR FESAB KLEE ES ELHK ER EESE EERE KEELE ERE RE KEE REE ESSERE LE RAKE 
*4SOFTWARE SWITCH REGISTER CHANGE 
:¥ROUTINE IS ENTERE FROM THE TRAP HANDL 
; HSERVICE THE TEST FOR C HANGE IN COP TuRRE Ry ao REGISTER TRAP CALL 
WHEN OPERATING IN TTY FLAG 
beech SURES SUR 33IS THE SOFT-SWR SELECTED? 
+ ENE 15$ BRC IF _NO 
TSTB = ASTKS : CHAR 
BPL 15$ :: IF NO Bon T WAIT AROUND 
MOVB seTKB -(SP) i SAVE THE CHAR 
BIC atci77 (SP) ::STRIP-OFF THE ASCII 
CMP SP}+ -:1S IT A CONTROL G? 
BNE ey $3 TURN TO USER 
CMPB $AT0R, 1 WE RUNNING IN AUTO-MODE? 
BEQ 1S$ ::BRANCH IF YES 
TYPE »SCNTLG ;sECHO THE CONTROL-G (1G) 
SGTSWR: TYPE MSWR i TYPE CURRENT CONTENTS. 
OV apReG. -(SP) + SAV : REG FOR TYPEOUT 
TYPOC +360 TAL ASCII(ALL DIGITS) 
ws: Ge SB Hat age ® 
CLR ~-(5P) tithe SNR 
7$: TSTB aSTKS ‘CHAR THERE? 
BPL 7§ ::IF NOT TRY AGAIN 
MOVB @$TKB,-(SP | 3 sBICK UP CHAR 


BIC #0177, (SP 


;MAKE IT 7-BIT ASCII 


i 















MAINDEC-11-DVDRA-A ORVL1S DMA INTERFACE DIAGNOSTIC MACYL1 27(665) 11-OCT-76 15:39 PACE Se 
DVDRAA.P11 TTY INPUT ROUTINE 
25 
e531 
See5 012456 021627 o00025 9$: CMP (SP), #25 :s1S IT A CONTROL-U? 
2594 Ole4be 001005 BNE 10$ ::BRANCH IF NOT 
2595 0120464 104400 013066 TYPE SCNTLU ::YES, ECHO CONTROL-U (TU) 
2595 b1eH70 962706 o00006 ecs: Add 46. SP : IGNORE PREVIOUS INPUT 
e537 12474 000757 BR 19$ ttLET’S TRY IT AGAIN 
2599 
2600 012476 O21627 OO0015 10$: CMP (SP), #15 31S IT A <CR>? 
2601 Oles02 001022 BNE 16$ : BRANCH IF_NO 
2602 012504 005766 O00004 TST 4(SP) t:YES. IS IT THE FIRST CHAR? 
2603 012510 001403 BEQ 11$ ::BRANCH IF_YES 
2604 Olesi2 O16677 O00002 166420 MOV 2(SP), aSWR :: SAVE NEW SWR 
2605 012520 000006 11$: ADD #6, SP ::CLEAR UP STACK 
2606 O125e4 104400 001171 14$: TYPE SCRLF ECHO <CR> AND <LF? 
2607 012530 123727 001135 000001 CMPB =s-« SINTAG, #1 : RE-ENABLE TTY KBD INTERRUPTS? 
2608 Ole536 001003 BNE 155 ::BRANCH IF 
2609 012540 012777 000100 166376 MOV #100, 3STKS ::RE-ENABLE TTY KBD INTERRUPTS 
2610 O1e5 15$: RTI : RETURN 
Pb1l Ot Secg 004737 010532 163: JSR PC, STYPEC ECHO CHAR 
e612 012554 O2l627 OO0060 CMP (SP), #60 :CHAR < 0? 
2613 012560 002420 BLT 18% :;BRANCH IF YES 
2614 Ole562 O2l6e7 O00087 CMP (SP), #67 CHAR > 7? 
2615 O1e566 003015 BGT 18$ : BRANCH IF YES 
2616 012570 O42726 OON0E0 BIC #60, (SP)+ ::STRIP-OFF ASCII 
| e617 012574 005766 000002. TST 2(SP) *:1S THIS THE FIRST CHAR 
2618 912600 001403 BEQ 173 ::BRANCH IF YES 
2619 Ole602 16 ASL (SP) ::NO, SHIFT PRESEN 
2620 012604 006316 ASL (SP) :: "CHAR OVER TO MAKE 
2621 Ole606 006316 ASL (SP) 7: ROOM FOR NEW ONE. 
 pbee 012610 005266 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 
e623 Oleb14 OS6616 177776 BIS =2(SP), (SP) ::SET IN NEW CHAR 
2624 Ole620 000707 BR 7 ::GET THE NEXT ONE 
2625 Oleb2e2 104400 001170 18%: TYPE $QUES t: TYPE 2<CR><LF> 
2626 Olebe6 000720 BR 20$ :SIMULATE CONTROL-U 
2627 .DSABL LSB 
op5g 
2630 Fy HEHEHE EEE EEE EERE EE EEE EEE EE EERE EERE EEE REE EEE LAL ERE 
e631 j ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
2633 * ROCHR ;;INPUT A SINGLE CHARACTER FROM THE TTY 
| pb34 * RETURN HERE CHARACTER IS ON THE STACK 
2635 t ::WITH PARITY BIT STRIPPED OFF 
2638 012620 O11646 SROCHR: MOV (SP), -(SP) : PUSH DOWN THE PC 
| 3639 Oleb32 O16666 000004 o00002 MOV 4(SP}, 2(SP) 35 SAVE THE PS 
| 2640 Dicb40 105777 166300 1S: TSTB = aSTKS * WAIT FO 
2641 Ole644 100375 BPL 1$ *:A CHAR 
| BeY2 Ole646 117766 166274 000004 MOVB  a$TKB,4(SP) READ THE TTY 
| B43 O1ebS4 O4e766 177600 900004 BIC tC<1?7>,4(SP) $3GET RID OF JUNK IF ANY 


A TTT 


















SD aS | lata “A ORVIIS ke INTERFACE DIAGNOSTIC MACYI1 27(665) 11-OCT-76 15:39 PACE 53 
DVDRAA TTY INPUT ROUTINE 


2644 012662 O26627 000004 900023 CMP 4(SP), #23 -:1S IT A CONTROL-S? 
2645 012670 001013 BNE $ ::BRANCH IF 
26% 012672 105777 166246 23: TSTB = ADS TKS ttUATT FOR @ CHARACTER 
2647 012676 100375 BPL *:LOOP UNTIL ITS THERE 
2648 012700 11774 166242 MOVE § 3STKB,-(SP) ::GET CHARACTER 
2649 012704 042716 177600 BIC #tC17?, (SP) ::MAKE IT 7-BIT ASCII 
2650 012710 Se o0002! CMP (SP)+, bol -:1S IT A CONTROL-0? 
2651 012714 001366 BNE 2s *: IF NOT DISCARD IT 
2652 012716 000750 ER 1$ 7: YES. RESUME 
2653 Ol27e0 Oebbe7 OO00OY 000140 3$: CMP 4(SP), #140 ::1S {T UPPER CASE? 
2654 Ole726 002407 BLT 4 _-$:BRANCH IF YES 
2655 015730 Oe6627 o000004 900175 CMP 4(SP), #175 2:15 IT A SPECIAL CHAR? 
gb55 012736 903003 SGT 4 i} BRANCH TF 
Ole740 O4e766 O0004O oOn0004 BIC #40, 4(SP) ;;HRKE IT UPPER CASE 
2658 Sle746 o00002 4S: RTI -GO BACK 
Sets , SoEEESEEESESESD SSESESSEEEESSGEE;EEEEESERESEEES FEESS00040000004 
| 3560 :THIS. ROUTINE WILL INPUT A STRING FROM THE TTY 
2662 + ROLIN ;;INPUT A STRING FROM THE TTY 
2663 t# RETURN HERE *ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
2bE4 1% >: TERMINATOR WILL BE A BYTE OF ALL O'S 
sope 012750 O10346 SROLIN: MOV ;;SAVE R3 
2667 Ole7Se 012703 013056 1$: MOV RetTyin Ra ;;GET ADDRESS 
2668 012756 O2e703 013065 2s: CMP agrTViNts. »R3 «5 ;BUFFER FULL? 
2563 Ol2e762 101405 BLOS tae F YES 
| 2670 O1 104407 ROCHR ;3G0 READ ONE CHARACTER FROM THE TTY 
| 2671 Ol 112613 MOVB = (SP)+, (R3) ::GET CHARACTER 
' p72 912770 122713 000177 10 CMP8) 3 —s«8 177, [R3) ::15 IT 
| ee eS 001170 us TYPE  - §QUES tee 9 
| 585s BiSons dares § tECLEAR THE BUFFER AND LOOP 
| 2676 O13004 111337 013054 3S: MOVB = (R3), 98 *:ECHO THE CHARACTER 
| @677 O13010 104400 013054 TYPE 
| 2678 013014 122723 OCOOdIS CMPB «RIS, (R3)+ ::CHECK FOR RETURN 
| 2679 0130eD 001358 ;;LOCP_IF NOT RETURN 
| peB8O O130e2 1 177777 CLRE = - 1 (R3) *CL EDR RETURN (THE 15) 
| 2681 013026 104400 001172 TYPE :LTYPE 8 LINE FEED 
| P&B2 013032 012603 MOV (SP)+,R3 RESTORE R3 
| P2683 0130304 O11646 MOV (SP). -(SP) ; }ADJUST THE STACK AND PUT ADDRESS OF THE 
2684 013036 916666 poooge MOV 4(5P$ 2°SP) i FIRST ASCII CHARACTER ON IT 
| p68S O13044 012766 013056 000004 MOV eSTTYIN, 4(SP) 
ob 8b 1 oooog2 RTI ; sRETURN 
1 000 9s: .BYTE 0 >: STORAGE FOR ASCII CHAR. TO TYPE 
: ct88 1 000 BYTE 0 35 TERMINATOR 
| 2689 013056 00010 STTYIN: .BLKB 8. ;;RESERVE 8 BYTES FOR TTY INPUT 
/ 2690 013066 052536 005015 000 SCNTLU: -ASCIZ /tU/<15><12>  $;CONTROL “U" 
| peal Ol 006507 O000l2 SCNTLG: .ASCIZ /tG/<15><lo CONTROL a 
| sbie 613100 o0sdi 053503 Q20l2e2 S$MSWR: .ASCIZ <15><12>/SUR = / 
| Bb 13106 
| 694 013111 040 O47040 OS3S0S SMNEW: .ASCIZ / NEW = 
«69S 013116 936440 900040 
| PES .SBTTL POWER DOWN AND UP ROUTINES 


a 


ow ae a ne en a ee ee 


| 
| 
| 
| 


MRINDEC-11-DVDRA-8 DRVLIS OMA 
DVORAR.PL1 POWER Dok AND 
238 
2639 
2730 Ol3i22 Oi2737 Ol3eb6 
2701 Q13130 Ole737 900340 
e702 013136 O100%6 
2703 O1314O O1014% 
2704 Rates 910246 
2705S O13144 010346 
2706 013146 O10446 
e707 013150 tea 
2708 O131Se Ol 165762 
e709 013156 9i0637 Ol3e7e 
2716 O13162 012737 013174 
2711 013170 O000C00 
e7i2 013172 000776 
e71 
2714 
2715 
2716 O13174% 012737 913266 
2717 Ql3e02 013706 Ol3e7e 
2718 013206 905037 Ol3e7e 
2719 OQOl3ele O00S237 Oise7e 
2720 O13e16 001375 
evel Rises peers 165714 
5755 Olaeee G1SeDe 
272% 013230 012603 
2725 Ol3e3e Bice 
ot aisee 012601 
13236 012600 
2728 aise 012737 Ol2le2e2 
2729 Ol3e% 012737 000340 
2730 Oil 104400 
2731 Ol 013274 
2e73e Ol 012716 
2733 Bi sees 002330 
e734 O13e64% 000002 
AL 
1 
2738 013274 905015 O42S2e 
2738 013302 OS110i O425e4 
2740 013310 O$11 046517 
2741 013316 0511 043040 
e742 013324 000114 
2743 
e744 
e74s 
2746 


000024 
000026 


000024 


900024 
000026 


TAGNOSTIC MACY11 27(665) i1-0CT-76 15:39 PAGE S4 


mo 


+ LERSLELELAFASLHELLAAASESLESAARELALFELARALELERELSAFLE SSL ELAAFFSALES 

'BOWER DOWN ROUTINE 
GPURDN: MOV SSILLUP, JSPWRVEC ; SET FOR FAST UP 
MOV on 0,3 Peri ; :PRIO: 


MOV -'Sp at ko ON STACK 
MOV AY (SP) ::PUSH R1 ON STACK 
MOV Re, -(SP) -:PUSH Re ON STACK 


SH RY ON STACK 
PUSH RS ON 3 Oe 


MOV aSWR, -( SP) H aSWR ON S 
MOV SP, SSAVRE EOE SP 

NOV. SSPRRUP S ePuRVEC’ : SET UP VECTOR 
BR --2 ;;HANG UP 


5 PERSE REFRLSAESLLELE LAL ESL ALE LELELE FLERE HELE LLLLARALFTEL EAE LLE 
-POWER UP ROUTINE 
$PWRUP: MOV SSILLUP, J8PWRVEC ;-SET FOR FAST DOWN 


MOV SSAVR, SP -: GET 
CLR SSAVRE’ ::WAIT LOOP FOR THE TTY 
1S: INC SSAVRE ::WAIT FOR THE I 
BNE 1$ 3 30F 
MOV (SP)+, aSWR :POP STACK INTO aSWR 
MOV (5P)4/R5 : + POP : ACK INTO RS 
MOV (SP)+,R4 ;:POP STACK INTO RY 
MOV (SP)+'R3 +:POP STACK INTO R3 
MOV (SP)+'R2 ::POP STACK INTO Re 
MOV (5P)+'RI 33POP STACK INTO Ri 
MOV (SP)+’RO +3POP. STACK INTO RO 
MOV sSPURON, 2 :-SET UP THE POWER DOWN VECTOR 
MOV #340, SePURVEC SS. tiple 
TYPE i REPORT itt POWER FAILURE 
SPWRMG: .WORD  PWRMSG “POWER FAIL MESSAGE POINTER 
MOV (PC)+, (SP) j URESTART AT RESTR 
SPWRAD: itoRo RESTRY : : RESTART aOORESS 
SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
‘ BR 2 3; BEFORE THE POWER DOWN WAS COMPLETE 


: “PUT THE SP 
PURMSG: .ASCIZ <15><12>-/RESTARTED FROM PWR FAIL/ 


. EVEN 
-SBTTL TRAP DECODER 


: -HEEFESESEEESSSERELLESREEHRELHESHSLRESFHRERELSLEFESLAEELESREREL ES 
STH THIS OUTING WILL PICKUP THE LOWER BY Te OF INSTRUCTION 
1% © INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:#0F THE DESIRED ROUTINE. THEN UEING THE ADDRESS OBTAINED IT WILL 
:#G0 TO THAT ROUTINE. 


ee ee ee ees 


al 





ee ee ee 





MAINDEC-11-DVDRA-A ODRVIIS OMA INTESFACE DIAGNOSTIC MACYLI 27(665) 1-CCT-76 15:39 PAGE SS 
DVDRAA. Pi! TRAP DECODER 

e732 013326 010046 f STRAP: MoV RO 5 (SP) : SAVE RO 

753 (OO! 016609 ocooce2 MOV 2($P) R ::GET TRAP ADDRESS 

2754 013334 005740 TST =(RO) ::BACKUP BY 

755 013336 1 MOVE  (RO},RO ;iGET RIGHT BYTE OF TRAP 

soap l ASL RO “POSITION FOR INDEXING 

2757 O1334e O1S00C 013350 MOV $TRPAD(RO) RO ‘INDEX TO TABLE 

£738 013346 RTs RO ::G0 TO ROUTINE 

e760 .S8TTL TRAP TABLE 

; THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

:#BY THE “TRAP” INSTRUCTION 
: ROUTINE 

013350 $TRPAD: 
913350 919320 STYPE ;;CALL=TYPE TRAP+O( 104400) TTY TYPEOQUT ROUTINE 
1 11074 STYPOC ::CALL=TYPOC  TRAP+1(104401) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
013364 911950 $TYPOS ::CALL=TYPOS  TRAP+2(104402) TYPE OCTAL NUMBER (NC LEADING ZEROS) 
013356 O11110 STYPON ::CALL=TYPON  TRAP+3(104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 
013360 011276 STYPDS ::CALL=TYPDS | TRAP+4(104404) TYPE DECIMAL NUMBER (WITH SIGN) 
01 D124 SGTSWR ;;CALL=GTSWR § TRAP+S(10440S) GET SOFT-SWR SETTINC 


ooo 
pe 


RCLLO-EPReEPRReRcrcrtr ler RS RBRERERE CHC 
Span Se? & 


‘Ol 020107 
ee Bre 
gay SS oe 
013416 40505 027504 
O134e4 OSel11 Oe0105 
0134 000 

01 106 051525 
ee gus Sic 
Bee fill bale 
0134 be011? 

ot esi 133 
1 1 1 
a Sage 
ee 
HES outs RO 
ee Bile 
BI ae! 123 040524 


SER F 2 SR RRR 
RRS Gout fe Gee 4 


SCKSWR Sy ape tr hate oP ae! Be TEST FOR CHANGE IN SOFT-SWR 
SROCHR =; ;CR_L=RDOCHR TRAP+? ( 104407) TTY TYPEIN CHARACTER ROUTINE 
SROLIN + CATE SRDLIN TRAPS 10( 104410) TTY TYPEIN STRING ROUTINE 


-SBTTL ASCII MESSAGES 
EMI: -ASCIZ /REG TIMEOUT ER’ 
EMe: -ASCIZ 'REG READ/WRITE ER’ 


EM3: -ASCIZ /BUS RESET ER/ 


EM4: -ASCIZ /FNCT BITS FAILED TO SET STAT BITS” 


EMS: -ASCIZ /READY INTR FAILURE/ 
EME: -ASCIZ /READY CLR OR SET ER/ 


EM7: -ASCIZ /STATUS ER ON XFER/ 





— | eee ee - ee 


15:39 PAGE S6 


EQS 
L1-CCT-76 


Yii 27(665) 


~ 
~ 


MAY 


ASCII MESSAGES 


MAINDEC-11-DVDRA-A ORVI1S DMA INTERFACE DIAGNOSTIC 


DVDRAA. Pil 


2 a ee ee 


if 


AEA 


(15><12>/PLEASE DISABLE “REV11" MEMORY REFRESH OPTION/ 


x 
w 
e 
2 2 
8 x 
5 : 
. : Y 
4 a. ~ $s 
oO oO a ~ ~~ 
Oo oO p 4 Q 
pm -— wi r=) w 
| uw ~ YO 
- oO la) = 
eS oOo [ ~ 
%, a =: Q oO S 
Q tas ta) ie Qa Wy 
tal la Q “ a. 
uw x< - L = =< x 
=< a Oo tas own a 
b + ~“ a pe oO 
p o } = i @ oOo 
oO ad “ la. za $s OQ ~ 
‘ a: E = ro) S - ~ 
Qa lad tay la) y. 
- w he uw « 2 = 
ra ay - ° ov 3 3 — rg 
= a iw - > > =z oO rr re 
= | ce oO YO ‘ ry « 
oO Qn a a ag te a 
Qa tw a ax a ra - —_) te 4 
s & & & & z a 5s 2 & 
= mM aQ a w w a) y YO a 
~ > ~ ~~ . “ ~ ~ ~ 3 
™ ™ ™Nm ™Nm ™N ™m 4 ™N ™S N N 
-¢ 4 _ ~~ tom} 4 ton) o-« | on) [mJ _ 
3 £ 8 B B 3 Fr 3 3 8 8 
es s eg & =f a j s- 2 S 
ee 4 — a) cory + = = Y 
Fray Fer} B&B & & & 5 Fer} 
ow TNOOWt. wor. and bed rrorm rrT 00 rT =O 
ce precedes Oita OOEel 8 Pot pgeanenee Gee ae 
a 88a fesse? sy PEPHR 2226 BS2 222 8 zaa8s2 
O- 
i 
Bees 


68 oKewesN a8 = eee eee qunuunenian eee ae 
ae Bezeeee8 ate Nitht= aa ea Se Geeabereeear ts G3 zeevee 


co 


Rid aaMA MER RAR RRNA RRR NOS Aiebenapgassearsonsers 


HOMMBAMGAOOOOBIGOGOMMIGMGVOF SSSI ESS SIFT TTT TITAS ST, 
OOOO OWWOOWOWOVOO9WWWWOHWWOOO0HOOO00O0000000000000000000000 


Riidencunencenentennn Ane RHR CREAR GARE EERR EERE 


ae a 


ee ee ee ee eee 





11-DVDRA-A ORVII8 OMA INTERFACE DIAGNOSTIC MACYL! e7(665) il-CCT-76 15:39 PACE $7 
ll ASCII MESSAGES 
014234 920122 oS1i0s outs: 
iiss 4446 0494 S004 
ols passat aria 505 
places ose OSI TSe on DH ERRPC TSTNUM BUSADR EXPCT CVD 
! l: ASCIZ ec TST! KXPCT  RCVD/ 
BER cools Eelkeg Br? 
14276 16 115 O41040 
014304 051525 O42101 O20l2e2 
014312 O42440 050130 052103 
014320 20040 051040 053103 
014326 900104 ; , 
014330 OS110S 050122 020103 Dxe: .ASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT RCVD- 
01 020040 051524 047124 
O14 de0040 2 
ti3e5 basis peieee dS0040 
014366 O20040 054105 041520 
014374 020124 O20040 041522 
Bt aage dete be 1520 0H3 ASCIZ /ERRPC TSTNUM BUSADR 
Hehe pee ice Bess 
014420 052516 O20115 O4:040 
014426 051525 042101 O00lz22 
EVEN 

O14434 001116 O01534 001122 OT1: § $ERRPC,TSTNUM,SBDADR, SGDDAT, SBDDAT,O 
O14442 001124 001126 O00000 
Ol44SO OO11J6 O01534 O01122 DT2: SERRPC, TSTNUM,$BDADR, SGDADR, SGDDAT, SBDDAT,O 
914456 001120 901124 001126 
0:4464 900000 
O14466 001116 001534 001122 DT3: SERRPC, TSTNUM, SBDADR,O 
014474 900000 

: j RERSRAESEEERESSR SRS ELLLS ELLA SELLE EEE LE SS HESXASAAAAAELEAALEREKSEE 

: SDBUF’ IS THE WORKING AREA IN EACH 4K MEN FOR ALL 

!NPR OPERATIONS - IT IS 200 WORDS LONG 

© SEREREEAESESELAERA LASSE RAAAE LAA LEAARAERSLL RESALE RE RRA SAE HRELLEE 
014476 99000 biur: oOo: :1ST ADRS OF DATA BUFFER 


a me a 





MAINDEC-11-DVORA-8 DRV113 OMA INTERFACE DIAGNOSTIC MACY11 27(665) il-CCT-76 15:39 PAGE 58 
DOVDRAA.P11 CROSS REFERENCE TABLE 

ABASE = 172410 7488 846 987 
ACDW! = 000000 946 889 

ACDWe = 000000 846 890 

ACPUOP= 000900 S46 861 

ADOWO = O00COO 846 891 

ADDW1 = 000000 846 892 

ADDW1O= 000000 846 $0) 

ADDW11= OO0OCOO 846 902 

eae 000000 B46 903 

ADOW13= OO000C S46 904 

ADDW14= OO0000 B46 905 

ADCH1S= 000000 846 905 

ADDWe = 000090 B46 833 

RDDWS = 000000 846 894 

ADDWY = 000000 846 895 

ADDWS = 000000 846 36 

ADOWE = B46 897 

ADDW7 = O00000 B46 838 

ADDWB = 000000 6 899 

ADOWS = rere BYE 900 

ADEVCT= 846 8S2 

ADEVM = 000001 7508 B46 828 
RENV = QO00G0 846 857 

RENVM = QO0000 846 8S8 

AFATAL= 000000 B46 849 

ANADR1= O00000 B46 874 

AMADR2= 000000 B46 878 

ANADR3= 000000 846 881 

AMADRY= 900000 846 884 

AMAMSI= OOCOD0 ei ys ae 

AMAMSS= x 

AMAMNS3= B46 879 

AMANSH= BYE 882 

AMSGAD= ~ B46 8S4 

AMSGLG= 846 gss 

ANSGTY= = - B46 B48 

AMTYP1= BYE 

= B46 8 
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APASS = B46 851 

pPTCSus 23 ee 
| APTENV= 2129 197 22398 e416 
| pPTSIZ= 1079 e388 
| APTSPO= 000100 2131 2199. , 22408 
ASWREG= 000000 B46 859 ~*~ 
| ATESTN= OOO000 B46 850 4 
AUNIT = ee B46 8S3 
| AUSHR = B46 860 

AVECTi= 000124 7498 B46 Bes 
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BIT10 = 002000 
BIT11 = 004000 
Bitte =Q0 

BITI3 = 

BITIY = 

BITIS = 100000 
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1057 1058 1060 1061 
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2406 2413 e425 2429 
2524 eSe? e5e8 2 
SSWREG 001215 esSe 1081 
SSWRMK= DO00000 637 638 2502 2503 
STESTN 901200 8508 1148% eS4ss 
STIMNES 001160 8368 1057# e495 12738 
nylhe atone 181% 19eh# = 2536# = 2543 
STKE OCii46 SeS# e560 257i 
$TKS 091144 828s 2560 2569 5 
1$™N = O00032 6238 bebe 1143 11478 
12338 1242 1245 12498 
13338 81347 13518 1376 
1481 148Se 661528 15328 
17e08 861776 17808 1814 
STPe 001152 83le e174# 2185 
STPFLG 001157 835e e123 2185 
STPS 001150 8308 1865 1866 1888 
| $TRAP 0133c6 1053 27528 
| $TRP = 000011 27608 698 27708 27718 
| STRPRD 013350 2757 78 
STST™ 001004 738 
STSTNM 001102 BO0Bs 1149 1925s 
| STTYIN 913056 2667 eb8Se 
| STYPBN= dHHHHHE 2773 , 
STYPOS Olle7b es3is e77e 
STYPE 010320 ele33 e215 2760 2768 
| STYPEC 0i0S32 2153 2160 2167 el7es 
| STYPEX 010606 2178 2180 21838 
; STYPOC 011074 2e7es 2769 
| STYPON 011110 ee71 ee748 2771 
| STYPOS 011050 e2cb78 2770 
'SUNIT 001206 8538 1129 1138 1139 
| SUNITM 001010 7578 
' SUSMR 901220 8608 
| SVECT] 001244 88Ss 1090 
| SVECTe OOlC46 B8bs 
| $SXTSTR 012190 esSies 
| SSCETY= tyres 19418 
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3 12738 1298 13028 §©1309 1312 13168 
1392 13 13998 =61414 14188 = §1431 1434 
15708 1600 16048 1633 16378 1669 16738 
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COMMEN 1s 7488 
ENDCON ls 7488 
ERROR S428 1183 1178 1133 l2e1 1243 1ese2 1263 1267 1287 1295 1310 
1367 1373 1387 1393 1406 141] 1426 1432 1453 14s3 1461 1463 
1508 1519 isis is4s 1551 1SS3 1SS5 1S63 1$83 1$8¢ 1592 1594 
| 1854 1861 18S 1689 16Ss ie¢3s 1701 l7le 1733 1741 17493 17S 
1802 180s 1807 181! 1838 1244 1847 1849 1953 1875 1881 1684 
ESCAPE le 7488 
GETPRI ls 7488 
SETS Ie «748811018 
SUL ls 7488 
NEKRTST is THBe !143 1is6 list 1209 l2e3 iess izes 1298 l3le 1325 
1414 1834 1481 iS28 iS&& 1600 1633 1669 1716 1776 1814 18s 
MK 10:48 1176 1197 1215 124! 1285 1308 1324 1340 1371 1385 1391 
1468 1s1S 1560 1664 1738 1746 1753 1763 1771 1890 198s 200! 
| Pop le «974Be «2231 «223283722721 E722 
| Puss ls 7488 862192 2184 2215 2331 2702 2708 
| REPORT ls 7488 
| SCOPE e4¥ss i163 1189 lele 1232 1248 1272 1301 1315 1332 1350 i373 
1484 1531 15693 1603 1636 1672 1718 17793 1817 1861 1901 
SETPRI ‘s 7488 
SETTRR 27608 2769 2770 2771 2772 e774 2776 2777 2778 
SETUP le 7488 1040 
SKIP 1s 742s 8 =61205 le42 1265 1309 1392 1431 
| SLASH | 7488 
| SPACE 7458 
| STARS ls 7488 768 773 781 788 80! 84S 1118 1120 1143 
1186 1188 1205 1211 lees 123) 1245 1247 i263 1271} 1298 
1331 1347 1349 1376 1378 } 1397 1414 14lé 1434 1436 148! 
1566 1S68 1600 1662 1633 1635 1669 1671 1716 1718 1776 1778 
1860 1892 1900 1917 19$6 1969 1366 1 1976 19861 20093 2014 
2060 2073 20793 21028 2187 2244 232! 2388 2437 2449 2447 2494 
26593 2638 2714 2746 2892 2e3s 
SuRSU ls 7468 ©0628 
, TRNTRP 27608 
, TYPBIN | 1s 7488 
_ TYPDEC is 7488 193£ 
TYPNAM ls 7488 10%6 
TYPNUM ls 7488 
' TyPocs ls 6138 74E8 
_ TYPOCT ls 7488 862459 2482 2580 
TYPTXT le 7488 
SSCMRE 7338 
SSCNTM 7398 
SSESCA le 7488 
SSNEMT ls 7488 1143 1166 1186 1209 1229 1e4s 1265 1298 l3le 13293 
' 1414 1434 148) 1528 1566 4600 1633 1669 1716 1776 1814 1858 
SSSET 27608 2769 2770 2771 e772 2774 277k e777 2778 
SSSETM {0788 
SSSKIP ls 7488 861205 1242 1265 13093 1392 1431 
. EGUAT ls tlie 38 
’ ls S138 
-KT}) ls 
SETUP is lis 1039 
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. SAPTY ls Sl3e 21gss 
. SASTA is - 
- SCATC le £138 7Sé 
| .$CMTA ls 6138 73s 
. $0820 is 
| . $0820 1 
-SCIV ls 
. SEOP ls bl3e 1515 
. SERRS lg Side 2386 
. SERRT ls Sige 2445 
. SMULT is 
- SPOKE ls S138 2636 
| . SRAND ls 
| . SRD0E le 
. SRDOC is $i3s 
. SREAD ls bl3s 2557 
| .§R2AZ ls 
- SSAVE ls 
- $5820 is 
. $S820 is 
. SSCOP ls bl28 2452 
.-SSIZE ls 
. SSUPR ls 
. STRAP ls 6138 2744 
.STYPE ls 
- STYPD is = $138) = 2319 
. STYPE is 6138 2106 
.STYPO ls 6138 e2z4e2 
. $40CAR is 
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SVBRAS- Pl Bose hee P RENCE SABLE F : 


AStIZ peor eos Hbs Beis ai? 5RZG SEZ SESH BRGY BGRT BEA ESBS Ed#t B74 





ea BD 
BYTE «= s«BES—C(asiaSC(‘iéLNSCCéSSC<Gséi]CiwEYSC(t DHSS? Se ESSE 
oe 8G 880 BEE EF 1G BEM ERE 2eMe G14 BRIS SIE 2317 Hee Hed 
DSABL 2627 
ENABL 1 613 2560 
END 2897 
ENDC 6=ss«IB—s—iiaCO 637 «638s a7 7HQ.s—s7HN——«<i773—'—i‘aSC7BCC7BZC789 
ele 4680 «60s «808Ssa3CsC(iéi SBD i BH“_Ci“(‘<ié‘éikSC7ESCCi7?]s—(iéiwBSSBE 
B87 0 sges—(ieSC8si(iéi‘i CCE (DCC BS BHG_CC“(<it‘i CCS i i 
$2 93 909 905 90 907 S11 1039 1047 1048 1051 1053 1055 1057 1058 
1060 1062 «61083 1100s «1108S stdi2 11H 11092) 144 14S) 484?) 14e 1145 
11671188 =—1168-S 1170s 1187) 1188 «= 1189) 1190) «1208 «S120 s12dd, Ss 1212S 1213, 1330S 1231 
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